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SPINNAKER 

EDUCATIONAL CARTRIDGES 
Cartridges work wth all Atari 8- bit Corrputers 

• Kindercomp • Delta Drawing 

• Fraction Fever • Story Machine 

• Alphabet Zoo 

• Alf in the Color Caves $ Q75 M 



HOT DISK TITLES 

■ Video Title Shop 

• ChessMaster 2000 

• Alternate Reality the City 

• Alternate Reality Dungeon 

• Tomahawk (64K) ^ 

• Bismark $ 1 Q 50 G 

• 221-B Baker St. 1 



WORD PROCESSORS 

Bank Street Writer Disk $17.50 

Cut & Paste Disk $17.50 

AtariWriter Cartridge $29.95 

DATA BASE 

Data Perfect by LJK is a high-powered 
general purpose data-base for use in dozens 
of applications. Create your own mailing lists, 
^business database, etc $CALL. 



800 4 PIECE BOARD SET 

Includes Main Board, Power Supply 
Assembly, CPU Module and 10K 
Revision B Operating System Module. 
All boards are new, tested and complete 
with all components $28.50 

800/400 MODULES 
NEW PARTS COMPLETE WITH ICS 

• CX853 16K RAM MODULE .... $9.50 

• 800 MAIN (MOTHER) BOARD . $9.50 

• 800/400 CPU Module with GTIA $9.50 

• 800 10K "B" O.S. MODULE . . . $9.50 

• 400 MAIN (MOTHER) BOARD . $9.50 

• 400 POWER SUPPLY BOARD $9.50 
^J00POWERSUPPm3OARD$14^0 

INTEGRATED CIRCUITS 



• C0 14795 . . $4.50 

• C0 14805 . . $4.50 

• C0 12296 . . $4.50 

• C0 10745 . . $4.50 

• C0 14377 . . $4.50 

• CO60472 . . $4.50 

• C0 12298 . . $4.50 

• C012399B $4.50 

• C0 124998 $4.50 
•C014599B $4.50 

• C0 14806 . . $4.50 

• C0 10750 . . $6.50 

• C0 10444. . $8.50 

• C0 12294 $9.50 
•C021697 $15.00 

• C061991 $15.00 

• C061598 . $20.00 
•C061618 $20.00 
•C024947 $15.00 



1050 ICS 

• U7 - 6532 $6.50 

• U8 - 6810 $4.50 

• U9 - 6507 $4.50 

• U10 ROM $19.50 

• U13 2793 $19.50 

• U5 LM2917 $8.50 
All other 1050 ICs 

$3.75 each 
Specify by Socket* 

850 INTERFACE 
12 Piece Chip set. 
Includes all plug in 
ICs except ROM. 
Replacement fixes 
vast majority of 850 
failures $19.50 



1050 MECHANISM 

Factory fresh TANDON mechs. 
make difficult repairs a snap. Units 
are complete with Head, Stepper, 
Spindle motor, belt etc. Just plug in, 
no difficult alignments or adjust- 
ments requirea <^^| -j 5Q 



VISICALC 

SPREADSHEET 

Unleash the computing power * a ^95 



of your 8 bit Atari withVisicalc. 
Compute everything from home 
finances to high powered finan- 
cial projections. Hundreds of uses. 



DISK 



XL 40 PIN LSI CHIPSET 

A Complete set of 40 Pin Large 
Scale Integrated Circuits for your 
800XL, 600XL or 1200XL computer. 
Great for quick repairsl Set 
contains one each of the ^ . ^ Q j- 1 
following: CPU, GTIA, $ 1 R yo ■ 
ANTIC, PIA AND POKEY. < 



REPAIR MANUALS 

SAMS Service Manuals for the 
following units contain schematics, 
parts listings, labelled photographs 
showing the location of 
checkpoints and more! A special 
section gives oscilloscope and 
logic probe readings allowing you 
to narrow the malfunction down to 
a specific chip or transistor! 
80S, 800XL, 130XE, 400, 1025 

and 1050 $19.50 each 

520ST Service Manual. $37.50 

MISCELLANEOUS 

1027 INK ROLLER $6.50 

13 Pin Serial I/O Cable $5.95 

ACE Joystick $7.95 

800XL RF Modulator .... $9.50 

1050 Track 0 Sensor $8.50 

2793 1050 Controller IC . . . $19.50 

U.S. Doubter $29.95 

SPARTADOS Tool-Kit . . . $32.95 
Paddle Controllers (Pair) . . . $6.50 
400 3 Piece Board Set ... . $19.50 

Fastchip for 800/400 $15.50 

Rambo XL w/o RAM ICs $39.95 
850 or PR Modem Cable . . $14.50 
850 or PR Printer Cable . . . $14.50 

Printer Interface $39.95 

I/O 13 Pin PC connector ... $4.50 
I/O 13 Pin Cable end plug . . $4.50 
ST 6' Disk Drive Cable . . . $14.00 
ST Monitor Cable connector $5.50 
ST Drive Cable plug end ... . $6.50 
5 1/4" Drive Cable $23.95 



TOWER PACKS 

Exact replacement trans- 
former for 800/400.1050 
810, 1200XL,850 L XF551& 
1020 units. Part #0017945. 



1450 



XUXE SUPPLY 

Pave* Pak (or 800XL.600XL 
130XE, 65XE & XE Game. 



; 25< 



.00 



THE BOOKKEEPER 
AND CX85 KEYPAD 

You get both Atari's 8 bit . 
professional bookkeeping $"1Q95I 
system and the handy CX85 1 ^ I 
numeric keypad for one low 4 DISK 
price. Packages factory sealed. SET 



KEYBOARDS 

New and complete subassembly. 
Easy internal replacement. 

130XE/65XE $35.00 

800 $40.00 

800XL $29.50 

400 $12.50 



COMPUTER BOOKS 

Atari Playground Workbook $7.95 
HackerBook Tricks & Tips $5.00 

Inside Atari Basic i 5u0 

Atari Basic Ref. manual. $5.00 
How to Atari 6502 Program $5 .00 
Write Your Own Games. $5.00 
Programmers Ref. Guide $14.95 
Assembly Language Guide $21.95 
XE Users Handbook ... . $21.95 
XL Users Handbook .... $2 1.95 
Atari Basic Faster & Better $22.95 
Your Atari Computer $17.95 

SERIAL I/O CABLE 

High Quality, 13Pin $5.95 

Special ... 3 Cables for $12.50 

MAC-65 CARTRIDGE 

6502 Machine language Macro- 
Assembler. First class tool for 
serious programmers. . . $59.95 

ATARI 850 INTERFACE 

Bare PC Board with parts list and 

crystal $7.50 

Board & all plug in ICs . . . $39.50 

PR: CONNECTION 

Serial/ Parallel Interface for connecting 
modems and printers $65.00 

BASIC CARTRIDGE 

Exact replacement for 
800/400/ 120OXL $15.00 

ANIMATION STATION 

Graphics Design Tablet $74.95 

Includes Design- Lab software. 



Cartridges for all 8 bit Atari computers * 

POLE POSITION Cartridge $15.00 

PAC-MAN Cartridge $4.00 

DELUXE INVADERS Cartridge $4.00 

JOURNEY TO THE PLANETS Cart $4.00 

DONKEY KONG Cartridge $5.00 

STAR RAIDERS Cartridge $5.00 

MILLIPEDE Cartridge $10 00 

CAVERNS OF MARS Cartridge . . $14.50 

PENGO Cartridge $15.00 

EASTERN FRONT Cartridge $15.00 

ATARIWRITER Cartridge $29.95 

TURMOIL Cartridge $5.00 

CROSSFIRE Cartridge $7.50 

SPRINGER Cartridge $7 50 

LINKING LOGIC (Fisher- Price) Cart $8.75 
ADVENTURE CREATOR Cartridge $12.50 

ZONE RANGER Cartridge $12.50 

SILICON WARRIOR Cartridge $12 50 

MATH ENCOUNTER Cartridge . $12 50 

UP FOR GRABS Cartridge $12.50 

PILOT LANGUAGE Package .... $17.50 
I SPARTADOS- X Cartridge ... $59 95 

ACTION O S S Cartridge $59.95 

MAC-65 O S S Cartridge $59 95 

BASIC XE O S S. Cartridge . $59.95 

R-TIME 8 Cartridge $56.95 

BASIC XL O S S. Cartridge . . $49 95 
DISK TITLES 

VISICALC Spreadsheet $19.95 

BOOKKEEPER* CX85 KEYPAD $19 95 

MISSION ASTEROID Disk $4.95 

SPIDER MAN Disk $4.95 

CRYSTAL RAIDER Disk $4 95 

DISPATCH RIDER Disk $4.95 

DAVID'S MIDNIGHT MAGIC Disk $4.95 

ALIEN AMBUSH Disk $4.95 

HUMAN TORCH & THE THING. . . $5.00 

MUSICAL PILOT Ed. Disk $5.00 

COMPUTATION Disk $5.00 

MASTER CHESS Disk $5.00 

SPEED KING Disk $5.00 

LAST V- 8 Disk $5.00 

CHAMBERS OF ZORP Disk $5.00 

PATHFINDER Disk $5.00 

MATCH RACER Disk $5.00 

WOMBATS 1 Adventure Disk ... $5 00 

NINJA Disk $7.50 

ELECTRA- GLIDE Disk $7.50 

SPORTS SPECTACULAR Disk . . . $7.50 

THE GAMBLER Disk $7 50 

STRATOSDisk $7.50 

FUN IN NUMBERS Disk $7.50 

MIND MAZES (Educational) $7.50 

MONEY TOOLS (Financial Utility). . $9.95 

DIG DUG Disk $9.95 

REPTON Disk $9.95 

REAR GUARD Disk $9.95 

TECHNA- COLOR DREAM Disk . . $9.95 

FREAKY FACTORY Disk $9.95 

LASER HAWK Disk $9.95 

ROCKET REPAIRMAN Disk $9.95 

CEST'E LA VE Disk $9.95 

| WOMPER STOMPER Disk $9 95 

OLIN EMERALD (Jr.. Adv.) $9.95 

MOVIE MAKER (Graphics) $9.95 

FINANCIAL COOKBOOK $9 95 

SONGWRITER $9 95 

COUNTING & ADDING vwth Tink . . $9 95 

CHESSMASTER 2000 $12.50 

GRANDMA'S HOUSE (Educational) $12.50 

DROPZONE Disk $12 50 

CASTLE WOLFENSTEIN Disk . . $12.50 
BEYOND CASTLE WOLFENSTEIN $12 50 

ALI-ANTS Disk $12.50 

MOUSE QUEST Disk (64K) $12.50 

ELECTRONIC DRUMMER Disk . $12.50 

STOCK MARKET Game $12 50 

PIRATES OF THE BARBARY COAST $12 50 

NICKERBOCKER Disk $12.50 

BOULDER DASH Construction Set $14.95 
MIDWAY BATTLES War Game $14.95 
MOONMIST (Inlocom Adventure) $14.95 
MIND SHADOW Adventure 64K . . $14.95 

HACKER Adventure $14 95 

SEA STALKER Adventure $14 95 

STATION FALL Adventure $14.95 

HOLLYWOOD HIJINKS Adventure $14.95 
LURKING HORROR Adventure . . $14.95 

SSI 50 MISSION CRUSH $14.95 

SSI BATTALION COMMANDER $14 95 

SSI PANZER GRENADIER $14.95 

SSI FIELD OF FIRE $14 95 

SSI GEMSTONE WARRIOR $14.95 

MASTERTYPE (Typing Tutor) . $15 00 

BANK STREET WRITER $17 50 

CUT & PASTE W.P. Disk $17.50 

SPARTADOS CONST. SET $39.50 

DATASOFT DISKS 

VIDEO TITLE SHOP $12.50 

ALTERNATE REALITY (The City) $12 50 
ALTERNATE REALITY The Dungeon $12 50 

ZORRODisk $9.95 

SARACEN Disk $9.95 

CROSSCHECK Disk $9 95 

GUNSUNGER Disk (64K) $9.95 

TOMAHAWK Helicopter Game 64K $12 50 
THEATER EUROPE War Game $12 50 

BRUCE LEE Disk $12 50 

MERCENARY Disk $12 50 

| THE GOONIES Disk $12 50 

CONAN Disk $12.50 

NEVER ENDING STORY (64K) . $12 50 

L221 BAKER STREET (64K) $12 SOj 



I AMERICAN TECHNA-VISION 

Mail Order: 15338 Inverness St., San Leandro, Ca. 94579 
Sales Office: 2098 Pike Ave., San Leandro, Ca. 94577 
Terms: NO MINIMUM ORDER. We accept money orders, personal checks or 
C.O.D.s. VISA, Master/Card okay. Credit cards restricted to orders over $18.50. No 
personal checks on C.O.D. - Shipping: $4.00 shipping and handling on orders under 
$150.00. Add $2.75 for C.O.D. orders. In Canada total $6.00 for shipping and 
handling. Foreign shipping extra. Calif, residents include 7% sales tax. All products 
new and guaranteed. All sales final.. 

Prices subject to change vwfiout notice. Send SASE fa Iree price kst Atari is a reg trademark of Atari Corp. 



CALL TOLL FREE 
1-800-551-9995 

IN CALIF. OR OUTSIDE U.S. 
CALL 415-352-3787 
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The Computer of Changes foretells your fate. 

FEATURE APPLICATION 
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Much more than a phonebook type-in Software 34\ 
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Subscribe to START magazine with disk 



Tutorials on START Disk brings 
the expertise of top ST program- 
mers right into your computer. 



Manage the power of your 
ST and make your computing 
more enjoyable with utilities 
on STart disks. 



Outstanding animation and 
graphics from the best ST artists 
around, from START Disk right 
on to your screen. 

Stimulate your imagination and 
your reflexes with games on 
START Disk! How-to tutorials 
show you how to write your 
own pulse-pounding games. 



Subscribe Ibdaj; rail 1-800-234-7001 

Use your Visa or MasterCard 
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BERSERK 



I'm trying to use BSRk from the August 
1988 Antic Disk, and it seems to have 
wrong and missing commands. The first 
problem was that the program would load 
only partially into the BSR Controller, then 
stop and lock up. Then the asterisks were 
not showing the correct days of the week 
in use. I seem to have corrected this prob- 
lem by changing the (X-l) to (X-l)- .1 
in line 6610. 

Also, the program isn't sending the code 
to turn the appliance modules on and off, 
although the program seems to turn the 
lamps on and off all right. 

Ed Sacks 

Garden Grove, CA 

As it says in the BSRk article, don't run 
the program from the monthly disk. Copy 
it to another disk, then follow the rest of 
the instructions on page 21 of that issue. 
Also, this program was tested with stan- 
dard Atari BASIC, so don't use Turbo 
BASIC or BASIC XL/XE. -ANTIC ED 

ANTIC REFRESHES 



I want to activate the unused 4K block of 
memory on my Atari 800 (for my own 
programs, only, of course), but I don't 
know if the ANTIC chip refreshes over 
48K. Can you help me? 

Ralph Munoz 
Los Angeles, CA 

There is no memory in that 4K block you 
can use — unless you have a memory up- 
grade that uses that area, in which case 
it will be refreshed. — ANTIC ED. 

LAPTOP HOOKUP 



How can I connect my Atari 800XL to my 
Tandy Model 200? 

William Higginson, Jr. 
Mayfield, KY 

See Laptop-To-Atari Connection in the 
November 198 7 Antic. —A N T I C ED 



OVER-PROTEaED INDUS 

I have an Indus GT disk drive for my 
130XE. The drive seems to be stuck in 
protect mode. Unless I can find a way to 
bypass or disable the protect mode, I am 
unable to save anything to disk. A letter 
to Indus Systems was returned unopened. 
Can you help me? 

Vinton Henderson 
APO NY 

Future Systems Inc. does repair work on 
Indus drives. Their address is 21634 
Lassen Street, Chatsworth, CA 91311. (818) 
407-1647.-mi\C ED 

CHALKBOARD POWERPAD 

In your October I/O board you had a 
reader who wanted to know where he 
could get the ChalkBoard PowerPad. We 
have several dozen units in stock priced 
at $30 each. We also have Music Maestro 
and Bear Jam PowerPad cartridge/overlay 
software available at $15 each. (The 
PowerPad is useless alone and requires a 
plastic overlay plus software.) 

If any of your I/O Board readers could 
find the Micro Illustrator cartridge and 
overlay (ChalkBoard PowerPad version 
only!) they would have an excellent draw- 
ing pad due to the large drawing surface 
of the PowerPad. 

Gail Maddox 
American Techna-Vision 
15338 Inverness Street 
San Leandro, CA 94579 
(415) 352-3787 



Antic welcomes your feedback, but 
we regret that the large volume of mail 
makes it impossible for the Editors to 
reply to everyone. Although we do 
respond to as much reader correspon- 
dence as time permits, our highest pri- 
ority must be to publish I/O answers 
to questions that are meaningful to a 
substantial number of readers. 

Send letters to: Antic I/O Board, 
544 Second Street, San Francisco, 
CA 94107. 
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NEW CARTRIDGES! 



STAR RAIDERS 
E.T. 

DIG DUG 



ASTEROIDS 
DEFENDER 
MISSLE COMMAND 



GALAXIAN 
FACEMAKER 



1020 

Complete with: 

• 2 Pen Sets 

• 1 Roll Paper 

• Power Supply & Cable 

EXTRA PEN SETS 



COLOR PRINTER 
PLOTTER 



$14,98 

' Brand New 

$ .89 (Black) 
$3.98 (Color) 



1200XL 64K COMPUTER 



w/PAC-MAN 



Reconditioned 



1027 PRINTER 



80 Column 
1 Direct Connect 
• Letter Quality 



Brand New 



ATTN. DEALERS 
PAC-MAN &fiQ 

Case of 120 S>\JCJ9 


800 48K COMPUTER 

w/PAC-MAN^gg Qg 

1 Reconditioned 


1025 PRINTER 

• 80 Column i 

• Dot Matrix 0*70 OQ 

• Friction/Tractor Q / JJ, Jlft 

• Direct Connect T^^^ 



^ — ^ DISK DRIVE 

1050 $169. 



800 BOARDS 

• Mother • CPU your choice 

• Power • ROM $8.98 



8Bit I/O Cable . $4.98 



850 Interface £«7Q QQ 
Serial, parallel %LZ'Z° 



810 



DRIVES 



$129, 

Reconditioned 



BASIC TUTOR QQ 
4 books 



5.25" DISKS 20 CENTS EA.' 

QTY. PRICE 

10 $4.00 

100 .... $29.95 
* 1 000 ... $200 
MAJORITY ARE UNNOTCHED 
CONTAINING OLD SOFTWARE 



DOS XE .. $9.95 



DOS 2.5w/manuaL $4.98 



1010 Tape drive $29 

10' Joystick ext $ .99 

Trackball $9.95 ; 



CARTRIDGES FOR 800, XL, XE 



BASIC CARTRIDGE $4.95 

BASIC TUTOR (4 BOOKS) $4.95 

TURMOIL $495 

PAC-MAN (no box) $4.95 

DONKEY KONG (no box) $4.95 

GORF (400.800) $4.95 

DEMON ATTACK (400,800) $4.95 

DELUXE INVADERS $4.95 

JOURNEY TO THE PLANETS.. $4.95 

STAR RAIDERS $4.95 

MISSLE COMMAND $4.95 

ASTEROIDS $4.95 

GALAXIAN $4.95 

DEFENDER $4.95 

E.T $4-95 

FACEMAKER $495 



MATH ENCOUNTER $7.98 

DANCE FANTASY $8.98 

LOGIC LEVELS $8.98 

MEMORY MANOR $8.98 

UNKING LOGIC $8.98 

CHICKEN $8.98 

CLAIM JUMPER $8.98 

DELTA DRAWING $8.98 

HEY DIDDLE DIDDLE $8.98 

SLIME (400/800) $8.98 

ALPHABET ZOO $8.98 

ALF $8.98 

ADVENTURE CREATOR .. $8.98 

DIG DUG $14.95 

SKY WRITER $14.95 

FOOTBALL $14.95 



DEFENDER $14.95 

ROBOTRON $19.98 

TENNIS $19.98 

FINAL LEGACY $19.98 

MARIO BROS $19.98 

DONKEY KONG JR $19.98 

JUNGLE HUNT $19.98 

MOON PATROL $19.98 

BATTLEZONE $19.98 

FOOD FIGHT $19.98 

HARDBALL $19.98 

FIGHT NIGHT $19.98 

ONE ON ONE BASKETBALL ... $19.98 

DESERT FALCON $19.98 

NECROMANCER $19.98 

RESCUE ON FRACTALUS $19.98 



BALLBLAZER $19.98 

BLUE MAX $19.98 

STAR RAIDERS II $19.98 

DAVID'S MIDNIGHT MAGIC $19.98 

ARCHON $19.98 

KARATEKA $19.98 

CHOPLIFTER $19.98 

GATO $24.98 

ACE OF ACES $24.98 

LODE RUNNER $24.98 

BARNYARD BLASTER (gun req.) .. $24.98 

DARK CHAMBERS $29.98 

AIRBALL $29.98 

SUMMER GAMES $29.98 

CROSSBOW (gun req.) $29.98 

CRIME BUSTERS (gun req.) $29.98 



DISK SOFTWARE FOR 800, XL, XE 



DAVID'S MIDNIGHT MAGIC ....$4.98 

ZORRO $4.98 

BANDITS (48K 4O0.800) $4.98 

PROTECTOR II $4.98 

CLAIM JUMPER $4.98 

SYNTREND $4.98 

CROSSCHECK $4.98 

MOLECULE MAN $4.98 



CRYSTAL RAIDER $4.98 

DESPATCH RIDER $4.98 

MISSION ASTEROID $4.98 

SPIDERMAN $4.98 

HULK $4.98 

COMMBAT $4.98 

PREPPIE I $4.98 



PREPPIE n $4.98 

THE COUNT $4.98 

DISK 50 (50 GAMES) $4.98 

FREAKY FACTORY $4.98 

LASER HAWK $4.98 

ROCKET REPAIRMAN $4.98 

AD VENTURE LAND $4.98 



PIRATE ADVENTURE $4.98 

SECRET MISSION $4.98 

VOODOO CASTLE $4.98 

TECHNICOLOR DREAM $4.98 

STRANGE ODYSSEY $4.98 

VISICALC $24.98 

BOOKKEEPER W/ num. keypad... $29.98 
GET RICH $29.98 



Astra | 


I Special buys on 8-BIT Hardware! 


Double Density 
Dual Disk Drives 1 

(2 drives in 1 case) 

$19g « 


1 SAN JOSE COMPUTER 


THE ATARI STORE 

1 Sunrise Plaza 640 Blossom Hill Rd. San Jose, CA 95123 
(406) 224-8575 • BBS (408) 224-9052 



Light Gun 

For use with pistol 
games on 8-Bit systems 

$34.98 



Light Gun Package 

Includes: 

• Light Gun £ n 

• Crime Busters Y 

• Crossbow 

• Barnyard Blaster 



109, 



SHIPPING: ADD $5.00 TO ALL ORDERS. AIR AND INTERNATIONAL SHIPPING EXTRA. THATS IT. 
WARRANTY: 90 DAY WARRANTY ON ALL ITEMS. TAX: CALIFORNIA RESIDENTS ADD 7% SALES TAX. 
PREPAYMENT: USE VISA, MASTERCARD. MONEY ORDER. CASHIER'S CHECK OR PERSONAL CHECK. 
PERSONAL CHECK MUST CLEAR PRIOR TO SHIPMENT. C.O.D.: CASH. CASHIER'S CHECK OR M.O. ONLY. 
Prices subject to change without notice. Brand and/or product names are trademarks or registered trademarks of their respective holders. 
Ad produced on an ATARI ST using Publishing Partner and printed on an ATARI SLM804 PostScript compatible laser printer. 



SUPER DISK BONUS 



Atar-I Ching 

The Computer of Changes foretells your fate. By Patrick Harvey 



Let your faithful Atari "tell 
your fortune" and answer 
your questions about the fu- 
ture with this month's Super Disk 
Bonus, Atar-I Ching. 

The I Ching is a most ancient Chi- 
nese fortune-telling system. In China 
its users have ranged from carnival 
fakes to generals and emperors. Its 
advice was used in everything from 
deciding what crop to plant to 
deciding military strategy. 

Like many other traditional 
fortune-telling devices such as the 
Tarot cards, the I Ching is based on 
using "organized randomness" to try 
tapping into the underlying trends 
in the universe. Like most such 
devices, the key is in how you inter- 
pret the results, rather than the ac- 
tual results themselves. 

In one form of the I Ching, the 
user shakes numbered sticks in a 
container until one falls to the 
ground. Atar-I Ching simulates to- 
day's most widely used method — 
tossing three coins to create a set of 
lines. Depending on the number of 
coins that land with heads or tails 
up (ancient Chinese coins were in- 
scribed on only one side and blank 
on the other) the line will be Yin, 
Yang, moving Yin or moving Yang. 
This is done six times to produce a 
"hexagram." 

Yang lines are solid and Yin lines 
are broken. If there are any moving 
lines (all three coins are the same) 




MEHG THE LONG ENDURING 
ZZ CHEN 

Thunder, sprint, arouse, foot. 

ZZZZ sun 

_ Mind, stood, santle, thigh. 

success and freedon fron error 
It is tins to 90 for a new yoai. 

CHZM PROGRESS 
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rire, sunner, beauty, eye. 
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Earth, fenale, passive, belly. 

Great Her it is richly rewarded. 

you have anothsr question? 



a second hexagram will be drawn by 
changing the moving lines. 

ASKING QUESTIONS 

Atar-I Ching will wait for you to 
mentally form your question and 
achieve the properly blank, recep- 
tive state of mind. The BASIC file is 
on this month's Antic Disk as ICH- 
ING.BAS and can be started by 
selecting it from the main menu. 
Then "toss the coins" by pressing 
the [SPACEBAR] three times. 

Using the Atari's random number 
generator, the coins are tossed to de- 
termine a hexagram. Like binary 
code, six lines of either yin or yang 
provide 64 distinct hexagrams. 



Based on the text associated with 
each of the hexagrams and compo- 
nent trigrams, plus your own intui- 
tive understanding of the question, 
you can develop a forecast of future 
events. As the I Ching texts tend to 
be very vague, this can require a lot 
of imagination. 

Atar-I Ching is a colorful, at- 
mospheric program written by 
Patrick Harvey of Mountain View, 
California. This is his first Antic 
publication and he's a computer 
engineer doing customer training 
for National Semiconductor's 32-bit 
microprocessors. 

Admittedly, Atar-I Ching is not 
quite as long as most of the other Su- 
per Disk Bonus programs that ap- 
pear in Antic. However, the listing 
does include many lines crammed 
with interpretive text, which would 
be particularly time-consuming to 
type. 

Your August 1989 Antic Disk- 
featuring Atar-I Ching as well as ev- 
ery type-in program from this 
issue — will be shipped to you within 
24 hours after your order is received. 
Just phone Toll-Free to the Antic 
Disk Desk at (800) 234-7001. The 
monthly disk is only $5. 95 (plus $2 
for shipping and handling) on your 
Visa or MasterCard. Or mail a $5 . 95 
check (plus $2 shipping and 
handling) to Antic Disk Desk, 544 
Second Street, San Francisco, CA 
94107. A 
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WL'fype-In Software 



FEATURE APPLICATION 



Customer list Manager 

Much more than a phonebook 

By Thomas Andrews 



Keep your important lists up-to-date 
with this powerful but user-friendly 
BASIC telephone/mailing list database. 
Works on 8-bit Atari computers with at 
least 48K memory, disk drive and a 
printer. 



My family operates a retail 
vegetable business on our 
farm in central New York. 
We have a series of lists of customers 
who make quantity purchases each 
year and wish to be informed when 
certain seasonal products become 
available. 

When we call these customers we 
want to have some information at 
hand concerning each one's prefer- 
ences and a history of recent orders 
to aid them in making this year's pur- 
chases. Customer List Manager lets us 
find this information with ease. It's 
much better than the method we used 
before our Atari 800 arrived — a spi- 
ral notebook. 



Customer List Manager is a tele- 
phone/mailing list/database program. 
Each record contains a customer's 
name, phone number and address, 
along with the type of product they 
want, some notes on personal prefer- 
ences and a five year history of past 
orders. Each list has a title and year 
attached to identify it. 

The list can be displayed on the 
screen, printed on most 80-column 
printers, or output to a word proces- 
sor file. Entries can be edited or 
deleted, and histories updated, in one 
easy operation, thanks to the pro- 
gram's sorting and selecting routines. 

The records in each list (referred to 
as "items" within the program) can 



be sorted on one or two levels. Sub- 
groups of list records can be selected 
for processing under a search routine 
which allows use of a wildcard char- 
acter in the search sequence. In case 
of disaster, the list can be recon- 
structed from the last editing opera- 
tion or from the word processor file. 
All this — and it can be customized to 
better suit your own needs as well. 

GETTING STARTED 

Type in Listing 1, MANAGER. BAS, 
and check it with TYPO II. Be sure 
to SAVE a copy before you RUN it. If 
you have trouble typing the special 
Atari characters in lines 50, 60, 65, 
85, and 86, don't type them. Listing 
2 will create these lines for you. Type 
in Listing 2, check it with TYPO II, 
and SAVE a copy. 

When you RUN Listing 2 it will cre- 
ate a file containing these hard-to-type 
lines called LINES.LST. Meige this file 
into Listing 1 by typing LOAD 
"D:MANAGER.BAS" and then ENTER 
"D: LINES.LST". Be sure to SAVE the 
final version of the file. 

If you have the Antic Monthly Disk, 
you should copy MANAGER. BAS to 
another disk before you try to use it, 
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since the program needs to be able to 
write files to disk. You can either copy 
the file from DOS using command C 
or O, or LOAD and SAVE the file from 
BASIC. Make sure the disk to which 
you copy MANAGER. BAS also con- 
tains DOS. 

The program is menu driven and 
most operations are self-explanatory. 
When you first RUN the program the 
main menu will appear. If no list has 
been loaded, only options A (Start 
New List), C (Load List From Disk), 
and H (Change List Title) will operate. 

Note that the [BREAK] key is NOT 
disabled. To return to the main menu 
after an accidental BREAK, type 
GOTO 100. Records in memory 
should remain intact! 

CUSTOMIZING LISTS 

Customer List Manager uses a vari- 
able length field and record system to 
lower wasted memory space. Provi- 
sions have been made to limit the to- 
tal list size to 19,000 characters and/or 
100 records. This size allows the pro- 
gram and storage area to fit in a 48K 
Atari with standard DOS 2.5 config- 
uration with about IK bytes left over. 

To change the maximum list 
length, change the value assigned to 
MAX in line 40. To change the maxi- 
mum number of records, change the 
value of HUN in the same line. 
Remember that each record allowed 
uses seven bytes of bookkeeping 
overhead. 

Each record has ten fields. The first 
five are labeled NAME, PHONE, 
ADDR., TYPE, and NOTES. These 
labels can be changed in line 90 by 
changing FNAMES. Be sure to use no 
more than five characters, padded 
with spaces if shorter, and separate 
each label with a colon. 

The last five fields contain the his- 
tory of the last five years and the labels 
for these fields are determined by the 
year of the list. The maximum length 
of any field is 60 and the minimum 
is 1. Anything outside these limits will 
be either cut off or padded with a 
space. 



Both upper and lower case charac- 
ters are allowed in the list. Inverse 
characters are not allowed and will be 
changed to normal if they are used. 

Menu selections D, E, and G (edit- 
ing, saving, and printing) allow the 
operation to be performed on only 
part of the items on the list. Items are 
flagged for processing through the use 
of a search routine that uses the ques- 
tion mark (?) as a wildcard character. 

As an example, a search of phone 
numbers using the sequence 5?5 will 
flag all items with two fives separated 
by any other character in the phone 
number field. Use all capital letters in 
the search sequence, and Customer 
List Manager will search for both up- 
per and lower case. 

To change the wildcard character, 
change the question mark in the ma- 
chine language routine SRCH in line 
60 to any character you wish. Keep 
in mind that the character used as a 
wildcard cannot be used as a regular 
character. DON'T change anything 
else in line 60 as this could cause your 
computer to lock up. Also change the 
screen prompt in line 15060 as a 
reminder that a different wildcard is 
in effect. 

EDITING 

The editing option is quite simple. 
There are three editing modes — edit 
and update, edit only, and update 
only. Update means that the list year 
is incremented by 1, the oldest year 
of history is dropped, the remaining 
history is shifted, and a new year is 
added to the end of each record. 

The update-only mode is com- 
pletely automatic and all list items will 
be updated. A space is inserted for the 
new history year field as the new list 
is written to a special edit file on the 
disk. After the entire list has been up- 
dated, the old list will be cleared from 
memory and the new list is input 
from the edit file. 

The Edit and Update mode allows 
you to enter information for the 
newly-added year. You can also 
change the contents of any of the 



fields, or you can delete a whole item 
(or record) from the list. You must go 
through all of the items on the list in 
this mode. To edit, move the cursor 
to the desired line and change it to 
read as you like. 

Because of the way the List Man- 
ager reads the list item from the 
screen, the INSERT and DELETE func- 
tions are disabled during editing, as 
is the clear screen command. When 
you have finished editing an item 
press [CONTROL] [A]. The item is 
read from the screen and placed in the 
edit file while Customer List Manager 
goes on to the next item. 

To delete an item press [CONTROL] 
[D]. The item will not be sent to the 
edit file. (A last-chance 'Are you sure?" 
question is asked before deletion is 
done.) If an item gets so messed up 
during editing that it would be easier 
to start over, press [ESC]. 

The edit-only mode allows the 
selection of part of the entries for 
processing. A menu comes up, letting 
you choose how much of your file 
you want to edit. If you decide to just 
edit some of the items (option B), you 
will be asked which field you want 
to use for the selection. Enter one, and 
you will then be prompted for the 
search sequence to use for a match. 
Remember, the ? character is the wild 
card that matches any other character. 

If you want to leave edit-only mode 
without editing all the items flagged 
for processing, press [CONTROL] 
[M] . The rest of the flagged items will 
be moved to the edit file on disk, with 
no changes. The program will load 
the new list from the disk, ready for 
any further operations. 

In all modes, once the editing oper- 
ation is done, the edit file is left on 
the disk as a backup file that can be 
recovered using main menu option I. 
Each time a list is edited the old edit 
file is replaced with a new one. 

List sorting can be done on any two 
fields. The primary field is selected 
first, followed by the secondary. To 
sort on only one field, use the same 
one for both primary and secondary. 
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The sort routine is completely auto- 
matic once started. 

PRINTING 

The print option assumes a generic, 
no frills, 80-column printer using con- 
tinuous paper. Therefore, it ought to 
work on just about any printer you 
would connect to your Atari. It is not 
necessary to print the entire list if you 
only need part of the pages. Customer 
List Manager will print any individual 
page or group of pages, and as with 
editing, you may select to print only 
those records which contain a speci- 
fied string in the chosen field. 

If your printer has capabilities be- 
yond the minimum supported here 
(and most do) you might wish to write 
a new printer routine to take advan- 
tage of them. But if you don't want 
to do this, the program will print a list 
to a disk file that most word proces- 
sors should be able to use. You can 
then use your word processor to add 
any special touches you want before 
you print out. 

Customer List Manager has the abil- 
ity to reconstruct a list from the word 
processor file (without the formatting 
commands or any other changes), 
providing a second emergency 
backup system. Use menu option I. 

You can't merge two lists with Cus- 
tomer List Manager, but you can 
merge files using your word proces- 
sor. Load the two list files into the 
word processor one after the other. 
(Do not mix Customer List Manager 
word processor files with files saved 
with menu option E. They use a dif- 
ferent format.) 

Remove the list title and year from 
the second list and save the com- 
pleted list on your disk. Load the com- 
bined list into Customer List Manager 
using menu option I. If the combined 
list is longer than the maximum al- 
lowed, the program will load as many 
records as will fit, then stop. 

It has been my experience that 
most practical application programs 
cannot precisely fit the needs of all 
users, and databases are no exception. 



That is why there are so many data- 
base programs out there — each user 
has different requirements. 

Beyond changing field names and 
memory limits as discussed above, 
further changes would require more 
extensive rewriting of the program 
code. I have tried to program in a 
fairly modular, structured form to 
make this easier to do. If Customer 
List Manager does not suit your needs, 
study the listing and the instructions 
below, so you can adapt the data- 
base the way you want it. 

ABOUT THE PROGRAM 

At the heart of Customer List Man- 
ager lies FIND, a machine language 
routine by Scott Sheck published in 
the December, 1984 Antic. The arti- 
cle, "Word Storage Space Saver," 
detailed an efficient method for stor- 
ing strings of varying lengths. 

As presented, FIND required that 
the strings be stored sequentially, un- 
padded with spaces, with the first 
character of each changed to inverse 
as a delimiter. The routine also re- 
quired that an inverse character be ap- 
pended to the end of the last field. 
Each string could be no longer than 
255 characters. 

FIND started at the beginning of a 
string and counted inverse characters 
until the desired field was encoun- 
tered. FIND then determined the 
string position of the start and the 
length of the field. 

This sequential access would be 
fine for most text adventures since 
FIND is quite fast. However, in the 
case of a search or sort operation 
where 100 or more calls to this rou- 
tine are possible, or even likely, 
processing time mounts up quickly. 

I added an index to the main stor- 
age area to provide pseudo-random 
access. The string position of the first 
character of each record is placed in 
a numerical array called LI. Now, if 
I want to examine the fifth field of rec- 
ord number 42, 1 use the contents of 
LI(42) as a starting point and go five 
fields from there. This provides very 



fast access — nearly as fast as if I had 
used fixed-length fields and calculated 
the position — and is much less waste- 
ful of RAM. 

Since the FIND routine uses inverse 
characters as delimiters, it follows that 
inverse characters cannot be allowed 
in the middle of a field. This necessi- 
tates a routine that does a character 
by character check of the input field, 
changing the first character to inverse 
and the rest of the characters to 
normal. 

Since a BASIC routine to do this 
would be quite slow, I wrote the ma- 
chine language routine CHNGR to do 
it more quickly. The call for CHNGR 

is: 

DMY= USR(CHNGR, ADR(FIELD $) . 
LEN(FIELDS)) 

CHNGR is the address of the rou- 
tine in memory that operates on the 
string FIELDS. 

The USR routine SRCH will exam- 
ine any block of memory for an oc- 
currence of a specified sequence of 
characters. The sequence may contain 
any combination of letters, numbers, 
and punctuation. Capital letters (nor- 
mal video) are checked as both upper 
and lower case. All other characters 
are examined only in the case and 
video type actually specified. The call 
for SRCH is: 

X = USR(SRCH,ADR(SEQ$), 

LEN(SEQ$),ADR(AREA$), 

LEN(AREA$)) 

SRCH is the address of the routine 
that attempts to find SEQ$ in string 
AREAS. A one is returned in X if the 
sequence is found anywhere in the 
search area, and a zero if the search 
was unsuccessful. The length of the 
sequence may vary from 1 to 255 
characters. The search area can be any 
length from IK to 64K. 

SORT ROUTINE 

The sort routine uses an insertion 
sort on two levels. For those un- 
familiar with the insertion sort, con- 
sider a file drawer that needs sorting. 
You start on either end and thumb 
through the folders one at a time un- 
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til you find one that is out of the 
proper sequence. You then check 
back through the folders you have just 
done until you find the proper posi- 
tion for the misplaced one. 

Then, you shift the folders to make 
room and insert the one in question 
in the right spot and go back to where 
you left off. When you reach the end, 
the sort is done. This type of sort, 
while certainly not the fastest type 
available, has the advantage of being 
very fast if most of the items are al- 
ready in order, as is usually the case 
with Customer List Manager. It is also 
nearly as easy to program in BASIC as 
the bubble sort and is usually faster. 

It is important to note that I do not 
actually move the text of the list 
around during the sort— -I change the 
order of the pointers to that text. The 
reason for this is simple: When I move 
a pointer, I only have to move six 
bytes. Since the size of each record 
(item) in a list can vary anywhere from 



10 to 600 bytes, not only would I have 
to move more bytes, but I would have 
to determine the length of the record 
I have to move each time. It is easy 
to see which way is better. 

The usual method used during an 
insertion sort with a numerical array 
is to shift the array elements one at 
a time as you are checking for proper 
position. In this sort, I wait until I 
have found the proper position and 
shift the elements in a block using a 
machine language block memory 
mover, SHIFT. 

This routine is a little different than 
the usual block mover in that it is 
bilateral. Most routines, including the 
string functions of Atari BASIC, will 
not work for moving in both direc- 
tions when the source and destination 
blocks overlap. SHIFT checks for the 
direction of the move and starts at the 
correct end of the block to properly 
shift it in that direction. The call for 
SHIFT is as follows: 



DMY= USR(SHIFT,HERE,THERE, 
LENGTH) 

SHIFT is the address of the routine, 
HERE is the address of the first byte 
of the source, THERE is the address 
of the first byte of the destination and 
LENGTH is the number of bytes to 
move. 

To determine the address of the nu- 
merical array, I DIMensioned a string 
just before it, determined the address 
of that string with the ADR function, 
and added the DIMensioned length of 
the string to it. Each element of the 
array takes six bytes. (Remember that 
the first element of the array has a sub- 
script of 0.) Since I do not use LI(0) 
in CLM, I added six more bytes to the 
base address for LI. A 



Thomas Andrews has a degree in electri- 
cal engineering. He found his Atari 800, 
some software and 12 issues of Antic at 
a garage sale in 1985. 

Listing on page $4 



ATARI 8-BIT POWER 

ALPHA SYSTEMS is constantly innovating to provide more power 
for your 8-brt Ataris 



HACK BACK 

Special OFFER 

The Alpha Systems HACK PACK contains all our 
finest products for making Back-up copies, 
Analyzing, Understanding and Protecting your 
Atari programs. It comes complete with Atari 

Protection Techniques (Book and Disk I). Advanced Protection Techniques (Book and Disk II), The 
Chipmunk, The Scanafy^er. The Impersonator and Disk Pack 1000. Worth over $150 Get them all 
for the special price of -Just $99.95 

Atari Software Protection Techniques Vol I & II 

These Book and Disk packages detail the most advanced copy protection methods in use today They 
guide you tnrough the rmthods used to create the protection as well as the copying techniques to get 
around them. They include information on Phteaking » Hacking • On-line security • Black boxes • Self- 
destructing programs • Pirate bulletin board systems * Logic bombs • New piracy laws • Hardware 
data keys • weak sectoring (Phantom, Fuzzy and unstable sectors) ♦ Overfilled tracks • CRC errors 
Bank Select cartridges and MUCH, MUCH MORE The disks include automatic program protectors. 
Protection Scanners, directory hiding and more. 
BOOK I and DISK I $24.95 
BOOK ti (Advanced projection) and DISK I! $24.95 
Special Offer, Order both sets for Only $39.95 

CHIPMUNK 

Automatic Disk Back-up System Make perfectly running unprotected back-up copies of hundreds of 
the most popular Atari programs. Chipmunk's sophisticated programming Automatically finds and 
REMOVES copy protection from most Atari programs. Back-up even heavily protected programs with 
ease. Finally, a back-up system that needs no special hardware or skills. 
(If you need o full list of what Chipmunk copies, call or write for our free catalog) $34.95 
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PARROT II 

An All New Parrot sound digitizer for your Atari. Parrot II is a 
sophisticated new hardware device that plugs into your joystick 
port. Parrot II has two inputs, One for a microphone and one for a 
" powered source such as a tape piayer, radio or Comrxict Disk. 
The Powerful Parrot II software lets you record sounds into your computer and play them back on any 
Afan. Parrot II turns your computers keyboard into a musical instrument with nine different sounds 
covering three octaves each The sounds can be anything, a dogs bark, a piano, a complete drum 
set, a symphony or your own voice. 

Parrot ll lets you modify the sounds on a graphic display to create brand new sounds and special 
effects Best of all, the sounds and voices can be put into your own programs that can be used on 
any standard Atari. Explore the world of digital sound and music ONLY $59.95 
Pre-Recorded Sound Disk More pre-recorded sounds for Parrot $4.95 
PARROT II Demo Disk (Does riot require Parrot to run) $5.00 



POP-N-ROCKER 



Sconalyier Automatically scan & analyze commercial programs Unlock programming secrets and 
learn from the masters $29.95 

impersonator Cartridge to Disk back up system. Create running back-up copies of any cartridge 
J^ ft l ; (up to 16K) $29.95 

CHEAT 

Get more from your games with CHEAT Tired of spending days trying to beat a game? Tired of getting 
stuck just when you need another life? Cheat is an innovative new product that gives you the chance 
you need to beat your favorite games. Cheat works with hundreds of Atari games to give you 
unlimited lives or power. End the frustration and get hours more enjoyment from your games (Call or 
write Alpha Systems for our free catalog with a full list of the programs that work with Cheat) ONLY $24.95 

BASIC TURBOCHARGER 

NOW for the first time a BASIC programmer can get the power, flexibility and incredible speed of 
machine language BASIC TURBOCHARGER is a book and disk package that contains over 1 50 
ready to use machine language routines. Complete instructions show how to add them to your own 
BASIC programs to get these features and more: • Smooth Scrolling • Player/Missile control • Load & 
Save Picture files • Sorting and Searching • Special Effects Graphics • Incredible Speed • Much, Much 
More • Over 1 50 programs, tou've heard of the power of Assembler, now harness it for your own 
needs. $24 95 

" 216-374-7469 




GIANT WALL SIZED POSTERS. 




a fast paced, multi-player trivia game that mixes questions 
with real songs (digitized 
with Parrot). Be the first to identify the songs and answer the music trivia questions. Pop-N-Rocker 
comes with three data disks and lets you add new questions so it will never get old. "feu can use a 
Parrot Sound digitizer to add new songs too! Use any kind of music from Rock Jo Classical to 
Nursery Rhymes. A new concept in entertainment and a perfect add-on tor Parrot $24 .95 

COMPUTEREYES & MAGNIPRINT II + 

Turn your computer into a digital portrait studio. This complete package lets I 
you capture, save & print digital images from your Video Camera, VCR f 
or TV. COMPUTEREYES hardware plugs directly into your joystick ports for 
easy use. Print your picture on a 6 foot poster. $119.95 
ComputerEyes camera system 
Comes complete with everything above, plus a black and white video 
camera and connecting cable. $329.95 

Graphics 9 Software - Add a new dimension to your COMPUTEREYES 
pictures - captures images in 1 6 shades of grey. $12.00 
Magniprint II + 

Easily the most powerful print program available today. Print graphics from almost any format in 
hundreds of shapes, sizes, and shades. Supports color printing and lets you create giant posters. 
Magniprint II + lets you stretch and squeeze, invert, add text, aOjust shading and much more. 
Works with EPSON, NEC, Citoh, Panasonic, Gemini, Star, XMM801, and compatible printers. (850 
interface or equivalent required). $24.95 
Graphics Transformer 

Now you can combine the most powerful features of all your graphics programs. Create print shop 
icons from a Koala pad picture, from a photo digitized with ComputerEyes, or any picture file. 
Graphics Transformer lets you Shrink, Enlarge and Merge pictures for unequaled flexibility. $22.95 

YOUR ATARI COMES ALIVE 

SAVE MONEY Finally an alternative to buying expensive computer add-ons Your Atari Comes Alive 
shows you how to built them yourself. This 'How-To' book and disk package gives you complete 
step by step instructions and programs needed to built and control these exciting devices and MORE: 
• Light Pen • Light & Motor Controllers "Alarm Systems • Voice Recognition • Environmental Sensors 
•Data Decoders ♦ More than 1 50 pages, four Atari Comes Alive $24.95 



VISA li MASTERCARD, ORDER BY 
PHONE, OR SEND MONEY ORDER TO: 



ALPHA SYSTEMS 1012 SKYLAND DRIVE MACEDONIA. OH 44056 FREE BONUS: DELUXE SPACE GAMES (3 games 
on a disk) Free with any order of 3 or more items. Include S3.00 shp & hdlg (US Canada) Ohio res. add 5'/2% sales tax 
Foreign orders add $8.00 shp & hldg. Call or write tor free catalog. Customer Service Line (216) 467-5665 M-F 9-3 
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VRename 

BASIC variable renaming tool. 



By Doug White 

Clear up old BASIC programs and make your own 
programs more readable by renaming the variables with 
this handy BASIC utility. This BASIC program 
works on all 8-bit Atari computers of 
any memory size, with disk drive. 



Have you ever gotten a BA- 
SIC program out of an 
old magazine or from a 
friend that was difficult 
to read because it had cryptic names 
for all of the variables? While Atari BA- 
SIC allows variable names up to 120 
characters long, some of the more 
primitive BASIC interpreters on some 
computers allow a maximum of two 
characters for each variable name. If 
you didn't write the program how can 
you tell what names like R9, D$, L2 
and X$ mean? 

Or have you used a subroutine from 
an old program in a new BASIC pro- 
gram that you were writing? There'd 
be a good chance that some of the 
variables were not compatible be- 
tween that subroutine and the rest of 



the program. You had two choices — 
either change every occurance of 
each problem variable name through- 
out the entire program, or else add 
program lines to assign needed data 
from the variable names that the pro- 
gram uses to the corresponding vari- 
able names that the subroutine uses. 

The first solution is time-consum- 
ing. The second creates confusing 
"spaghetti code," since the same piece 
of data will have a different name de- 
pending upon where it is in the 
program. 

To help you (and me) write under- 
standable programs and decipher pro- 
grams already owned, I have con- 
structed a programming utility that 
will let you rename any or all of the 
variables in a BASIC program. 



This programming tool is simple in 
theory but powerful in practice. 
VRename can be used on completed 
programs stored on disk. But it is 
primarily designed to let you modify 
the variable names of a program that 
you are currently writing. For this rea- 
son the utility does not change the 
margins, colors, or any other feature 
of the display that you may have cus- 
tomized for your own convenience. 

GETTING STARTED 

Type in Listing 1, VRENAME. LST, 
check it with TYPO II. This utility 
will not work with SAVE and 
LOAD— so LIST a copy of it to disk 
before you use it the first time. The 
utility deletes itself from memory af- 
ter it is finished, so once you RUN it 
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you'll have to retype the whole pro- 
gram if you don't have a copy safe on 
disk. 

Rather than making up a useless test 
program for demonstration purposes, 
I've included a program that contains 
a Shellsort routine in lines 500-680 for 
sorting numbers stored in an array 
named A() into descending order. 
Type in Listing 2, SHELSORT.BAS, 
check it with TYPO II, and SAVE a 
copy to disk. 

The Shellsort is much faster than 
the commonly used bubble sort. If 
you want to use it in your programs, 
just rename A() to whatever name 
your program uses. If you need the 
numbers sorted in ascending order, 
change the < character in line 620 to 
a > character. 

USING VRENAME.LST 

Now you can RUN the Shellsort 
program to try it out. Then, with the 
sorting program still in memory, 
ENTER ' D : VRENAME . LST: ' ' and RUN 
it. 

The first variable used in the sort 
program, A(, will be shown on the 
screen. To rename it, type [Y] and 
press [RETURN]. Now type in the 
new name and press [RETURN] . Since 
the variable A( is an array, your new 
array name must also end with a ( 
character. Type [Y] and press [RE- 
TURN] if the name is spelled cor- 
rectly. 

The next variable name will now 
be shown on the screen. If you don't 
want to rename it, just press [RE- 
TURN] and the following variable 
name will appear. This process will 
continue until the last variable name 
of the sort program has been dis- 
played. 

Now the program will prompt you 
for a name for the disk file in which 
you want to keep the modified pro- 
gram. For example, type in D:SHEL2, 
or if you don't need a permanent 
copy you could use D8:SHEL2 to 
store it to a RAMdisk. 

After the utility finishes, it will de- 
lete itself from memory. Press [RE- 



TURN] one more time to ENTER the 
modified program back into memory. 
Now if you LIST the program to the 
screen it contains the renamed varia- 
bles. RUN the program and it will ex- 
ecute just as it did before. 

CHANGING YOUR OWN 

VRename will work with almost 
any BASIC program, but your pro- 
gram must have line numbers greater 
than 0 and less than 31500. LOAD 
your program, then ENTER "D:VRE- 
NAME.LST" from disk. Then RUN the 
program, and rename variables as 
described above. 

Be careful that you don't use re- 
served BASIC words (like LOAD, RUN, 
NEXT) as variable names. If you have 
a lot of variables, be sure you don't 
give different variables the same name 
by mistake. As always when modify- 
ing a program, it's a good idea to keep 
a backup copy on disk. 

HELPFUL HINTS 

While you are typing in a program, 
you can use variable names that are 
short and easy to type. After you fin- 
ish you can substitute longer, more 
descriptive names. Simpler variable 
names mean less typing, and will not 
only save you time but will probably 
reduce the number of typing errors 
that you make. 

When your program is running 
properly, you can use my variable 
renaming utility to add descriptive 
names that use these characters with- 
out causing any problems. 

BASIC TOKENS 

When you type in a program in 
Atari BASIC, the BASIC interpreter 
translates each program line into a line 
number and a series of string con- 
stants, floating-point constants, and 
tokens. Tokens are numbers that stand 
for each of the variables and BASIC 
commands in the program. The 
tokens are stored in a table called the 
statement table, which contains a 
"shorthand" version of the program. 
The tokenized version of the program 



in the statement table takes up less 
space and executes much faster than 
the program would if it were still in 
the original ASCII form. 

If the value of a token is less than 
128, it represents one of the BASIC 
commands or BASIC operators. If a to- 
ken value is greater than 128 it stands 
for one of the variables in the pro- 
gram. For example, if the program 
contains a SETCOLOR command, the 
statement table will contain a 48 
which is the token value for this com- 
mand. In similar fashion a variable 
name will be replaced by a one-byte 
token each time it appears in the state- 
ment table. 

The characteristics of each of the 
variables are stored in three other sys- 
tem tables — the variable name table 
(VNT) which contains the variable 
names that correspond to each of the 
variable tokens; the variable value 
table (WT) which indicates whether 
a variable is a string, an array, or a 
simple variable called a scalar; or the 
string and array table (START) which 
holds the contents of every string vari- 
able and the value of each element in 
every array variable in the program. 

In the variable renaming utility we 
are primarily concerned with the 
VNT. After a program is stored in 
memory, BASIC works with the 
tokens, the WT and the START and 
ignores the variable names for the 
most part. Only when you are manu- 
ally entering a program, LISTing it, or 
ENTERing it from disk or cassette are 
you directly working with the in- 
dividual variable names. The SAVE 
and LOAD commands access the sys- 
tem tables only as a continuous block 
of data, and are of no use in renam- 
ing the variables. 

All of the BASIC system tables that 
I've mentioned change size and move 
around in memory as different BASIC 
processes occur. The BASIC inter- 
preter keeps track of the location of 
each of the tables using pointers. 

Pointers are memory locations that 
contain the addresses of tables and 
other important data that move 
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around in memory. While the address 
stored in a pointer may change, the 
pointer itself stays in the same place. 
The variable renaming utility uses two 
pointers called VNTP, which points to 
the beginning of the VNT, and VNTD, 
which points to the byte immediately 
following the end of the VNT. 

HOW IT WORKS 

When you ENTER the utility from 
disk, it merges itself around your pro- 
gram. Your program must therefore 
have line numbers greater than 0 and 
less than 31500. The utility jumps 
from line 0 directly to line 31500 and 
does not execute the original pro- 
gram. The utility then reads each vari- 
able name out of the VNT and asks 
if you want to change that name. The 
old variable name or the new variable 
name (if you just changed it) is then 
stored in VARNAME$. 

The utility goes through all of the 
names in the VNT until it reaches 
VARNAMEfl, the first variable of the 
utility itself. (If no names were 
changed, the utility terminates and 
both the program and the utility re- 
main in memory.) 

Now there is a complete updated 
list of all of the variable names stored 
in VARNAME$. The utility puts the 
address of VARNAME$ into VNTP to 
make BASIC look for variable names 
in VARNAMES instead of looking in 
the old table. 

After you type in the name of the 
disk file where you want to store the 
modified version of your program, 
the utility LISTs lines 1-31499 (the 
original program) out to that disk file. 
As the program is being converted 
from tokens back into ASCII, the ad- 
dress in VNTP tells BASIC to read the 
updated names stored in VARNAME$ . 

Finally the utility clears memory 
with a NEW command, which ter- 
minates the utility. Press the [RE- 
TURN] key and the modified program 
will be reentered into memory from 
the ASCII file now on disk. 

An added benefit of LISTing and 
ENTERing your program to and from 



disk is that it cleans up your program. 
Old unused variable names will be 
discarded. If your 800XL has Revision 
B BASIC ROM, 16 bytes of garbage are 
added to the end of your program 
each time you SAVE it to disk. Peri- 
odically LISTing the program to disk 
and ENTERing it removes this gar- 
bage. You have Revision B ROM if you 
PEEK(43234) and the result is 96. 

PROGRAM TAKE-APART 

31514 VNT is assigned the address 
of the variable name table. VNT is in- 
cremented to keep track of the cur- 
rent character being read from the 
table. 

31518-31530 Read each variable 
name. 

31531-31598 Change a variable 
name and put the new name in 
VARNAME$. If unchanged the old 
name is put in VARNAME$. 

31606-31614 Store the old variable 
name table pointers. 

31618-31648 Make the variable 
name table pointers point to 
VARNAMEl 

31652-31688 LIST the modified 
program out to a disk file. 

31690 NEW clears out user mem- 
ory and resets the system table 
pointers. 

31694-31706 TRAP routine. If an 
error occurs while LISTing the modi- 
fied program to disk, the old VNT 
pointers are restored. 

SPECIAL CASES 

As I mentioned earlier, this utility 
is designed to merge itself around a 
program that is currently in memory. 
With a dimensioned size of 2000 
characters, VARNAMEJ5 will hold 128 
names that average 15 characters in 
length, or 64 names that average 31 
characters, or 32 names that average 
63 characters, etc. If you have a par- 
ticularly large program, both the pro- 
gram and the utility may not fit in 
available memory at the same time. 
If this occurs feel free to decrease the 
dimension of VARNAMES. 

Another problem might arise with 



programs that use a lot of variable 
names. Atari BASIC limits you to 128 
variables in one program. The renam- 
ing utility itself uses three string vari- 
ables and 13 scalar variables. 

128 - (3 + 13) = 112 VARIABLE 
NAMES 

If your program uses more than 112 
variables, ENTERing the utility may 
cause an error since the total number 
of variables exceeds 128. 

First, try to localize the section of 
the program that contains the varia- 
bles that you wish to rename. Rename 
the variables in that section. Then 
recombine the program section with 
the rest of the program. 

If this process does not solve the 
problem, you will have to create a spe- 
cial version of the renaming utility 
which uses the same variable names 
as your program. Use the following 
procedure: 

1. LIST your program to disk and 
type NEW to clear memory. 

2. ENTER the utility into memory. 

3. Delete line 31534. 

4. Modify line 31680 to read: 31680 
LIST NAMES 

5. Type RUN to run the utility on 
itself. 

6. As each variable name is dis- 
played, rename it to one of the vari- 
able names in your program. 

7. When the utility is finished, EN- 
TER the modified copy of the utility 
into memory 

8. Modify line 31680 to read: 31680 
LIST NAMES, 1,31499 

9. LIST the modified utility back 
out to a disk file. 

When you ENTER this specially tai- 
lored copy of the utility into memory 
with your program, BASIC will not 
have to add any new variables, since 
they already exist in your pro- 
gram. A 



Doug White of Arlington, Texas uses his 
1200XL as an aid in designing and test- 
ing loudspeakers. His article Equivalence 
appeared in the February 1989 Antic. 

Listing on page 39 
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Hi-Res PUT and GET 

Animation without Player /Missiles. 

By Brad Timmins 



Here's a different way to create color- 
ful objects that move smoothly around 
your computer screen. This BASIC 
demo program includes the handy PUT- 
GET machine language routine for use 
in your own programs. It works on all 
8-bit Atari computers of any memory 
size, with disk or cassette. 



Creating colorful objects that move 
smoothly around your computer 
screen can be one the of most satis- 
fying and eye-popping effects your 
Atari has to offer. Player/Missile 
graphics were specifically designed 
for this purpose, but P/M graphics 
have their limitations. First, you can 
only have a maximum of five players 
(objects) on the screen at once. Each 
player can only be eight resolution- 
lines wide. Also, you are limited to 
one color per player. 

Hi-Res PUT and GET overcomes 
these limitations by allowing you to 
take a "snapshot" of any rectangular 
section of the screen and store it in 
memory. Then you retrieve the image, 
and reposition it on screen. 

For example, if you wanted to move 
a box smoothly across the screen, you 




would start by drawing the box using 
PLOT and DRAWTO commands. 
Then, using the PUT and GET rou- 
tine, save to memory the portion of 
the screen where you drew the box. 
And finally, put the image back on 
the screen shifted over by one pixel 
from the previous image. 

Cycling through this procedure will 
create the illusion of smooth motion. 



You can also cycle through changing 
images to give the illusion of ani- 
mation. 

GETTING STARTED 

To see the routine in action, type 
in Listing 1, PUTGETBAS, and check 
it with TYPO II. Be sure to SAVE a 
copy before you RUN it. This demon- 
stration program will draw an object 
and move it smoothly around the 
screen. 

PUT and GET works with all high- 
resolution graphics modes (3-11). It 
also supports ANTIC modes E and D. 
ANTIC E is the so-called 7 1/2 
graphics mode. This mode offers fine 
resolution and four colors to work 
with. ANTIC E is available on the 
XL/XE computers as Graphics 15. 

ANTIC D has greater resolution 
than ANTIC E but only allows one 
color. This mode is available on 
XL/XE computers as Graphics 14. 
Atari 400/800 users must set up a spe- 
cial Display List to access these 
modes. PUT and GET does not sup- 
port any text modes. 

USING THE ROUTINE 

PUT and GET is written in machine 
language for maximum speed. It is 
called by the USR statememt: 
X = USR(1536,XSTART,YSTART, 
X WIDTH ,YLENGTH , STORAGE , 
GRAPHICS MODE, COMMAND) 
XSTART and YSTART are the upper 
left corner of the rectangular section 
of screen you want to work with. 
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XWIDTH and YLENGTH define the 
size of the rectangle. XWIDTH defines 
the width of the rectangle. YLENGTH 
defines the length of the rectangle. 
Both can range from zero to the max- 
imum coordinate value for the 
graphics mode you're in. For speed 
purposes, PUT and GET does not 
check for boundary errors, so be 
careful. 

STORAGE is the area of memory 
you want to store your image in. To 
determine how much memory you'll 
need, multiply XWIDTH by 
YLENGTH, then divide the result by 
the appropriate number listed on the 
table below: 

Graphics mode Divide by 

3 4 

4 8 

5 4 

6 8 

7 4 

8 8 



9-11 2 

14 (ANTIC mode D) 8 

15 (ANTIC mode E) 4 

Add one to the result of the divi- 
sion if you get a remainder other than 
zero. If you are going to store your im- 
age in a string, add one to XWIDTH 
and YLENGTH before you multiply. 

GRAPHICS MODE tells PUT and 
GET what graphics mode you'll be us- 
ing. Values range from 3 to 13. Values 
3 through 11 are the standard high- 
resolution graphics modes. Use a 
value of 12 for Graphics 14 (ANTIC 
D), and 13 for Graphics 15 (ANTIC E). 

COMMAND tells PUT and GET 
what action you want done. If COM- 
MAND equals zero, PUT and GET will 
copy a section of the screen to mem- 
ory. If COMMAND equals one, an area 
of memory will be copied to the 
screen. 

PUT and GET takes up most of Page 
six and all of the cassette buffer. So 



if you do any cassette operations, 
you'll have to reinitialize PUT and 
GET. 

Machine language programmers 
can access PUT and GET with a JSR 
to $609, and by subsituting these Zero 
Page locations for the USR 
parameters: 

XSTART = 224 (two bytes) 

YSTART = 222 

XWIDTH = 220 (two bytes) 

YLENGTH = 218 

STORAGE = 216 

GRAPHICS MODE = 214 

COMMAND = 212 

Note that XSTART and XWIDTH 
should both be set up as two-byte 
values, even if the coordinate values 
are less than 255- A 



Brad Timmins is a freelance program- 
mer living in Draper, Utah. His program 
Macro RESET appeared in the January, 
1989 Antic 

Listing on page 38 



Bought An 
ST Computer? 

Then convert from Antic to START now! 

As you upgrade your computer you'll want 
to stay with us. START magazine for the 
Atari ST guides you every step of the way. 

You can have the remaining value of your 
Antic subscription converted to an equal 
value of START magazine with disk. 



Q YES! 

Convert my Antic Subscription to 
START magazine with disk. 

jj^J I am interested. 

Tell me how many issues of 
START I will get. 

Clip this coupon and mail to: 
Antic Subscriptions 
EO. Box 1569 
Martinez, CA 94553 
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type-In Software 



Good King Zurp 

The great pasta sauce chase. . . Don't ask! Program by Frank Martone 




Collect the ingredients you need to 
create a super spaghetti sauce in this 
crazy BASIC game. Good King Zurp 
will work on any 8-bit Atari com- 
puter with at least 24K memory, with 
disk or cassette, and your trusty 
joystick. 



Good King Zurp, son of Bet- 
ter King Xorpfgh, was a 
powerful, despotic figure 
in the land of Xjigqh, where they do 
everything the same as they do here 
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except that they eat gelatin with chop- 
sticks. 

During the reign of Xorpfgh, the 
people of Xjigqh lived happy, 
prosperous lives, growing breadfruit 



and hiring themselves out as ballasts 
for the glowering Foon People across 
the Thplj River. 

Good King Zurp ascended to the 
throne of Xjigqh when Better King 
Xorpfgh met an unfortunate end 
while stooping to pick a flower from 
a hostile grootlebush. Many suspected 
foul play, but everybody knew that 
Zurp couldn't possibly have master- 
minded any plan that required any 
type of native intelligence. 

Zurp's first official act was to 
build— no, that's not right, his first 
official act was to legalize pouring 
beet syrup over your head and boil- 
ing grubs in mayonnaise and rutabaga 
oil. His second official act was to build 
a vast empire of financial wealth by 
hiring out his serfs as fruits and 
vegetables in traveling nutrional 
morality plays. 

But unsurprisingly, hordes of tooth- 
pick craftsmen eventually overthrew 
Good King Zurp by disabling the pal- 
ace guards, storming the king's 
rumpus room and overturning Zurp's 
pool table — with Zurp underneath, 
also thereby turning Zurp into a 
flapjack-like entity. 

Zurp left Xjigqh reluctantly (and 
with constant neuralgia) for the sun- 
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nier pastures of Floobgrute, where he 
became the town's most popular rick- 
shaw operator, but not before build- 
ing his famous Horror Pits. 

NOW TO THE GAME 

The leader of the insurgents, one 
Ftjorjt "The Mad Whacko Strange Per- 
son" Lipsko, also met an unfortunate 
demise when he competed in a polo 
championship but forgot his pony. His 
will stipulated that the new ruler of 
Xjigqh would be that man, woman, 
child or similar creature that could de- 
velop a nationally accepted spaghetti 
recipe. 

As luck would have it, buried in 
Zurp's Horror Pits are hundreds of 
valuable things, mostly on the order 
of ingredients necessary for a really 
good meat sauce for pasta. Your job, 
would-be despot, is to root through 
these horrid, gloppy areas for gold 
nuggets in the form of packages of 
noodles, containers full of seasonings 
such as pepper, and cloves of garlic. 




HAVE A QUESTION 
ABOUT YOUR 
SUBSCRIPTION? 

Get an answer fast! 

Call 
(415) 372-6002 

Write: 

Antic Customer Service 
P.O. Box 1569 
Martinez CA 94553 




If you're lucky— that is, if you sur- 
vive long enough to tromp through 
enough pits— you might chance upon 
some packages of really terrific tor- 
tellini, which almost assuredly would 
put you in the winner's circle. 

This sounds easy enough, but this 
is no mere scavenger hunt, oh, no! 
No, you've got to avoid poisoned 
colanders (sometimes called "cul- 
lenders") and elude horrid, oversized 
maggots which will cover bits of you 
with an unpleasant substance — and if 
you're covered completely, you'll 
suffocate, which is to say the game 
will end rather abruptly and tell you 
that you failed miserably. 

Each screen gives you 75 seconds 
to grab as much as you can before ad- 
vancing to the next screen. Your 
score, the time remaining and the 
number of lives left— you start with 
nine— are all displayed at the top of 
the screen. 

GETTING STARTED 

Type in Listing 1, PASTA.BAS, check 
it with TYPO II, and be sure to SAVE 
a copy to disk before you RUN it. 

A title screen will appear, followed 
shortly by a list of objects and their 
point values. Press [START] to begin. 
Once the playing field is set up, sim- 
ply move the joystick to direct your 
character towards the valuable 
items — but watch out for those mag- 
gots and colanders! 

VALUES 

Here's how much each ingredient 
is worth: 

Packets of pasta 
(fettucini, spaghetti, 
vermicelli, sometimes 
gnocchi): 100 
Packets of seasoning 
(including pepper, 
oregano and, for some 
reason, dried 

horseradish): 250 
Garlic Cloves 500 
Packets of special pasta 
(tortellini, tortelloni, 
ravioli, sometimes 



agnolotti): 5,000 
Pesto sauce 0 
(there isn't any) 
Maggots you die 

Colanders (cullenders) you die 

BONUS SCREENS 

Every fourth screen is a bonus 
screen filled with rows of groaning 
colanders. Packets of pork-filled tor- 
tellini or spinach ravioli will appear 
randomly — and very briefly — 
onscreen. You must grab one before 
it disappears and pops up elsewhere. 

If you've garnered over 60,000 
points, first of all you should have a 
heck of a sauce recipe, but a nasty 
maggot will accompany you on the 
Bonus screens. 

In order to get the bonus you must 
sucessfully grab three pasta packets 
without touching any colanders or 
maggots. If you fail, you go bonusless 
and advance to the next screen. 

If you succeed, however, before 
heading on to the next screen you'll 
be given a random amount of points 
between 1,000 and 10,000. 

The game gets tougher as your 
score increases. There'll be more 
colanders, more maggots and more 
spice packets and garlic cloves to grab. 
If you have over 50,000 points, the 
special pasta may appear on the play- 
ing field. If your score exceeds 
100,000, the playfield will flash dif- 
ferent colors, making it harder to con- 
centrate. 

STRATEGY TIP 

Maggots tend to dissolve colanders 
in both the regular playfield as well 
as in the bonus playfield. Nobody 
knows why. Fool them into passing 
over the colanders to dissolve 
them. A 



Frank Martone is a student at Suffolk 
Community College on Long Island, New 
York. This is his first appearance in Antic 
and the editors apologize for the drastic 
rewrite of his original scenario. 

Listing on page 40 
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A COMPUTER SOFTWARE SERVICES 
RO BOX 17660, ROCHESTER NY. 14617 
ATARI " PHONE [716] 467-9326 

JUST RELEASED! 

$99.95 "SUPER ARCHIVER in 

(for ATARI 1050 drives) 

NOW! COPYS all ENHANCED DENSITY programs plus retains all of the features 
of our World Famous SUPER ARCHIVER! (see below). Allows you to COPY or 
CREATE single or ENHANCED density protection schemes (Including PHAN- 
TOM SECTORS!). Completely automatic; compatible with the BIT-WRITER!; the 
ULTIMATE BACKUP/PROGRAMMING device! Only $99.95 plus $4 S/H/l 
NOTICE! If you already own a SUPER ARCHIVERI, you can upgrade to a SUPER 
ARCHIVER II for only $29.95 plus $4 S/H/l (disk only - no additional hardware 
required). 

THE 

$69.95 "SUPER ARCHIVER'T $69.95 

(for ATARI 1050 drives) 

The new SUPER ARCHIVER, obsoletes all copying devices currently available 
for the ATAR1 10501 It eliminates the need for Patches, PDB files, Computer 
Hardware, etc Copies are exact duplicates of originals and will run on any 
drive; without exaggeration, the SUPER ARCHIVER is the most powerful 
PROGRAMMING/COPYING device available for the 10501 Installation consists 
of a plug-in chip and 6 simple solder connections. Softwares included. 
Features are: 



TRUE DOUBLE DENSITY 
ULTRA-SPEED read/write 
FULLY AUTOMATIC COPYING 
SUPPORTS EXTRA MEMORY 
SCREEN DUMP to printer 
TOGGLE HEX/DEC DISPLAY 
SECTOR orTRACK TRACING 
AUTOMATIC DIAGNOSTICS 
DISPLAYS HIDDEN PROTECTION 
ADJUSTABLE/CUSTOM SKEWING 
AUTOMATIC SPEED 
COMPENSATION 
AUTOMATIC/PROGRAMMABLE 
PHANTOM SECTOR MAKER 



• ARCHIVER/HAPPY ARCHIVER 
COMPATIBLE 

• BUILT-IN EDITOR - reads, writes, 
displays up to 35 sectors/track 
short 

• BUILT-IN CUSTOM FORMATTER 
up to 40 sectors/track 

• BUILT-IN DISASSEMBLER 

• BUILT-IN MAPPER - up to 42 sectors/ 
track 

• DISPLAYS/COPIES Double Density 
HEADERS 

• AUTOMATIC FORMAT LENGTH 
CORRECTION 



SIMPLE INSTALLATION 
The SUPER ARCHIVER is so POWERFUL that only programs we know that can't 
be copied are the newer ELECTRONIC ARTS and SYNFILE/SYNCALC (34 FULL 
sectors/track). If you want it ALL . . . buy the "BIT-WRITER"! also . . . then you'll 
be able to copy even these programs! Only $69.95 plus $4 S/H/l. 



$79.95 



'BIT-WRITER"! 



$79.95 



The Super Archiver "BfTWRITER"! is capable of duplccrtlng even the "uncopyable" 
EA and SYN series which employ 34 FULL sectors/tracks. "BIT-WRITER"! is 
capable of reproducing these and FUTURE protection schemes of non 
physlclally damaged disks. PLUG-IN circuit boards and 4 simple solder 
connections. The "SUPER ARCHIVER with "BIT-WRITER"! is the ultimate 
PROGRAMMING/COPYING device for Atari 1050's. EXACT DUPLICATES of 
originals are made! Copies run on ANY drive. Must be used with Super 
Archiver. Only $79.95 plus $4 S/H/l. 



$69.95 



'ULTRA SPEED PLUS" $69.95 



Imagine a universal XL/XE Operating System so easy to use that anyone 
can operate it instantly, yet so versatile and powerful that every Hacker, 
Programmer and Ramdisk owner will wonder how they ever got along 
without itl Ultra Speed Plus puts unbelievable speed and convenience at 
your fingertips. Use ANY DOS to place an ULTRA SPEED format on your disks, 
boot any drive (1-9) upon power-up, format your RAMDISK In Double Density, 
activate a built-in 400/800 OS for software compatibility, plus dozens of other 
features too numerous to mention! Below are Just a FEW features you'll find 
In the amazing OS: 



ULTRA Speed SI0 for most 
modified drives 
ULTRA Speed Is toggleable 
Boot dlrecfly from RAMDISK 
Special timer circuits not re- 
quired for 1 or 2 Meg upgrades 
Background colors adjustble 
Reverse use of OPTION key 
Cold-start without memory loss 
Built-in lloppy/dlsk configuration 
editor (1-$) 



• Built In RAMDISK configura- 
tion editor (1-9) 

• RAMDISK exactly duplicates 
floppy drive so sector copy- 
ing and sector editing are 
now possible 

• Built in MINI Sector Copier 

• Toggle SCREEN OFF for up to 
40% Increase of processing 
speed. 

• Toggle Internal BASIC 



• Ram resident disk loader 
program (MACH 10 menu) 

• DOUBLE DENSITY RAMDISK 
capable 

• Entire MEMORY test that pin- 
points defective RAM chip 

• Boot any drive (1-9) upon 
power-up or cold-start 

• Supports memory upgrades 
up to TWO MEGABYTES 

• THREE Operating Systems In 
one (XL/XE. 4007800, ULTRA 
SPEED PLUS) 



$29.95 



"XF551 ENHANCER!" 



$29.95 



The XFS51 Atari drive is a fine product with one major flaw.. .it writes to side 
TWO of your flopping disks BACKWARDS. This causes read/write 
Incompatibility problems with all other single sides drives made for Atari 
such as Indus. Trak, Rana, Percom, Astra, Atari 1060, Atari 810, etc Add the 
XF551 ENHANCER to the new XF651 drive and your problems are over! This 
device will restore 100% compatibility while retaining original design 
qualities of Atari's super new drive. The XF551 ENHANCER is a MUST for all 
XF551 Owners. Installation is simple. Only $29.95 plus $4 S/H/l. 



DEALER/DISTRIBUTOR/USER GROUP Discount avallalbe call for Info. 
PHONE Orders • MASTER CARD, VISA MAIL • Money Orders, Checks 

•SHIPPING! Add $4 for Shipplng/Handllng/lnsurance within the U.S.A. 
UPS BLUE LABLE (2nd DAY AIR) available for $3 extra per shipment. 
CALL TODAY! (716) 467-9326 COMPUTER SOFTWARE SERVICES 

9 am - 5 pm (EST) WEEKDAYS P.O. Box 17660 

Rochester, N.Y. 14617 
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$39.95 RICHMAN'S $39.95 

80 Column Word-Processor! 

Easy to use, very powerful, and NO ADDITIONAL HARDWARE required! 
Works with TV or Monitor! This "DISK ONLY" 80 Column Word-Processor is 
simple to use while offering numerous features such as: 



1 Completely Menu driven 

• Self contained DOS 

• Complete Text formatting 

• Built in Printer Drivers 

• Page numbering 

• Justify and Endfill 

• High Speed Cursor 

• Dictionary 

• 80 COLUMNS ON THE SCREEN! 
One expert has compared 40 domestic and foreign word-processors 
and concluded that the RICHMANS 80 Column Word-Processor is the 
best! Only $39.95 plus $4 S/H/l. (64K required). 



1 Insert and Delete 

• Search Mode 

• view only mode 

• Memory Statistics 

• Alternate Output 

• Change screen Colors, 
borders, luminesce 

• Mouse compatible 



$39.95 



THE "QUINTOPUS!" 



$39.95 

The "QUINTOPUSI" Is an Inexpensive device that provides a tremendous 
amount of convenience while eliminating the problems associated with 
the endless "daisy-chaining" of peripherals (eg: drives, interfaces, printers, 
modems, cassettes, etc). The "QUINTOPUSI" is an I/O port expander that 
converts a single I/O output/Input Into five additional outputs/lnputa Instead 
of daisy-chaining all of your peripherals (which often times results In passing 
a signal through 30 feet or more of cablel), the "QUINTOPUSI" allows each 
device to be connected directly to the computers through only three or 
four feet of cable. This Is particularly useful when attempting to use 
ULTRASPEED or WARPSPEED data transfer rates. The "QUINTOPUSI" also 
provides the "extra" I/O ports often needed to connect devices not having 
daisy-chaining capabilities. Cable resistance and compacltance are 
greatly reduced thereby significantly improving the opportunity of 
accurate data transfers! Only $39.95 plus $4 S/H/l. 

$59.95 THE "QUINTOPUS!" $59.95 
(with SWITCHABLE PORTSI) 

This Deluxe version of the "QUINTOPUSI" has all of the above features with 
the additional benefits of two SWITCHABLE PORTSI This means you can 
connect two computers to one printer or two printers to one computer; you 
can switch in a computer/printer combination and while you're printing 
out a long document, switch in a second computer to access a modem, 
disk drive, cassette deck, etc! Switch multiple combinations of peripherals 

or computers without the hassel or re-arranging I/O cables simply flip 

a switch! Only $59.95 plus $4 S/H/l. 



LIMITED SPECIALS! 

Previously we listed these products under our FIRESALE ad but many of our 
customers feared that the software items might be smoke or water 
damaged. They're NOT! All of the items listed below are BRAND NEW.. .only 
their literature or packing may have slight cosmetic Imperfections. All Items 
are fully warrantied! Quantities are limited! No rainchecks! 







LIMITED 




NORMALLY 


SPECIALS 


1. PILL (without case) 


$ 70 


$19 


2. SUPER PILL (without case) 


80 


22 


3. XL FIX ROM 


70 


19 


4. ULTRA MENU/DOS 


30 


19 


5. DISKCRACKER (Newest version) 


50 


19 


6. ELECTRONIC PHANTOM SECTOR MAKER DELUXE 


60 


35 


7. RICHMANS 80 COLUMN WORD PROCESSOR 


60 


29 


8. MIRACLE (Disk only Version of Impossible) 


70 


19 


9. IMPOSSIBLE for 800 or 800XL 


150 


69 


10. XL MATE 


30 


15 


11. COMPACTOR 


30 


15 


12. KLONE II (Generic HAPPY backup) 


100 


75 


13. SILENCER 


30 


19 


14. BLACK PATCH (MASTER) 


50 


25 


15. BLACK PATCH DATA DISKS 1 8c 2 


20 


10 



•Order 5 items or more and we will pay the freight! 

These SPECIALS are for C.S.S. customers only - NO DEALER DISCOUNTS - NO RAINCHECKS 
- LIMITED QUANTITIES 



H l)pe-/u Software 



Superhop ACTION! 

Faster fractals grow in your Atari. By Douglas Skrecky 

Watch elegant fractal patterns come alive onscreen at top speed with 
this fast and friendly ACTION! program. It works on 8-bit Atari computers 
with at least 48K memory memory and disk drive. If you are typing in 
the program, you will need the ACTION! cartridge from ICD. But if you 
own this month's Antic Disk, you will find a version that runs without 
the special cartridge. 




In May, 1987, Antic published 
my fractal generating program, 
Dot Hopper. That program 
used floating point arithmetic 
and was written in BASIC. Conse- 
quently, it was quite slow. 

After playing with the ACTION! 
cartridge for awhile, I realized that 
floating point calculations were com- 
pletely unnecessary for this language. 



Between ACTION! 's inherent speed 
and integer arithmetic, I found that 
the program could be made to run 
many times faster than in BASIC. Us- 
ing ACTION!, the Atari could gener- 
ate fractal patterns in seconds. The 
fractals appear to "come alive" and 
grow right before your eyes. 

You don't have to know anything 
about the mathematics of fractal ge- 
ometry to appreciate these elegant 
patterns. Some are startlingly organic, 
others are reminiscent of snowflakes 
and lace. If you enjoy the beauty of 
fractal imagery, you'll have fun with 
this program. 

GETTING STARTED 

Type in Listing 1, SUPERHOP.ACT, 
and save a copy to disk before you 
start the program. 

Antic Disk users don't need the AC- 



TION! language cartridge to enjoy 
Superhop ACTION!. A runtime ver- 
sion, SUPERHOP.EXE, is on this 
month's disk. (As is usually the case, 
this runtime ACTION! translation 
would be too long to print as a type- 
in listing.) Copy SUPERHOP.EXE to 
another disk that has been formatted 
with DOS 2 or DOS 2.5, and make 
sure the disk contains a DOS. SYS file. 
Rename SUPERHOP.EXE to AUTO- 
RUN.SYS so that the program will 
load and run automatically. 

To start growing fractals, turn off 
your Atari and insert your prepared 
Superhop ACTION! disk. Remove all 
cartridges (XL and XE owners press 
[OPTION]) and turn on your com- 
puter. Superhop ACTION! will load 
and run automatically. 

When the program runs, it first 
presents the main menu, which lists 
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the various commands and options. 
You can return to this menu from any 
other screen simply by pressing [M]. 

Pressing [D] activates the demo 
mode, which generates successive 
fractals through 15000 iterations each 
(it doesn't take very long). Demo 
mode continues generating fractals 
until you press the [M] key to return 
to the menu, or press [C] to generate 
a single fractal. 

While fractals are being generated 
in either Demo or Create mode, press- 
ing the cursor keys (you don't have to 
press the [CONTROL] key with them) 
will shift the fractal so that you can 
view a different portion on the 
screen. However, the fractal is erased 
from the screen and the growth proc- 
ess must begin all over again — with 
the same pattern. The patterns are 
generated fast enough that this isn't 
a big inconvenience. 

You may use the [>] key to "zoom 
in" on a portion of the fractal, enlarg- 



ing it on the screen. The [<] key 
"zooms out". These keys also start the 
fractal growth process over again. 

Pressing [C] changes the pattern. To 
see some of the possible patterns, try 
letting each pattern grow for only a 
few seconds before pressing [C] again. 
Then if a new pattern looks particu- 
larly interesting you can let it grow, 
and see how it develops. 

Also, try letting patterns sit on the 
screen for several minutes after they 
seem to have stopped growing — they 
may surprise you. 

SAVE A FRACTAL 

If you see a fractal pattern you like, 
you can save it to disk by pressing the 
[S] key. Doing so will read in a disk 
directory and let you choose a file- 
name to save the screen under. The 
fractal is saved as a 62-sector Micro- 
Painter compatible file. Once the im- 
age has been saved, the program will 
return to the pattern in progress, 



which continues to grow without 
starting over. 

To convert your Micro-Painter im- 
age to Micro Illustrator format, you 
can use Rapid Graphics Converter in 
the November 1985 Antic. 

To load a fractal into Superhop AC- 
TION! press [L]. A directory of the 
disk in drive 1 will be displayed. En- 
ter the filename of the fractal you 
want, and it will appear on the screen. 
(Note that the fractal does not con- 
tinue to grow after it has been loaded.) 

Pressing the [SPACEBAR] will turn 
off the screen and speed up fractal 
growth by about 30%, although I 
realize that this is not an especially 
useful function! A 



Douglas Skrecky is a mainframe pro- 
grammer who currently lives in Vancou- 
ver, Canada. He likes to relax after work 
with his "trusty Atari 8-bit and perhaps 
a mug of beer." 

Listing on page 37 



Coming Next in 
September 1989 Antic 



Smart RAMdisk Handler 

automatically adjusts to 
your memory upgrade 



More from "Mapping The Atari" 

exclusive serialization of 
Ian Chadwick's reference classic 



Disk Bonus: 

Electro-circuit CAD Artist 



More affordable 
than ever... 

Subscribe to Antic with Disk for 
ONLY $28.00! 



Get 6 issues of Antic with 
disk for the super low price 
of $28.00. It's so much 
easier on your checkbook! 

Antic's disk is your best 
source of continued 8-bit 
software support. 



Subscribe now! 
Call Toll-Free: 1-800-234-7001 

Visa/Mastercard orders only 




Mapping the 



Atari 



Exclusive! 



Antic brings back the classic 8-bit reference book. 



Serialization by Ian Chadwick 



Ian Chadwick's "Mapping The Atari" has been one 
of the core references for Atari 8-bit programmers since 
the first edition was published in 1983. The book is 
set up as a comprehensive guide to the memory loca- 
tions in the Atari 130XE, 65XE, 800XL, 600XL, 
1200XL, 800 and 400. But it is much more than that. 
It is a virtual encyclopedia of indispensible informa- 
tion about the inner workings of the Atari. 

This invaluable sourcebook essentially is out of print 
today, although a few copies of "Mapping The Atari' ' 
can still be found in the publisher's warehouse and 
occasionally at specialty computer stores. Therefore, 
it is with great satisfaction that Antic announces we 
are beginning an exclusive serialization of key excerpts 
from the revised second edition of Chadwick's book. 
This opening segment provides a useful overview of 
the material that will be covered in upcoming issues. 



What exactly is a mem- 
ory map? It is a guide 
to the memory loca- 
tions in your com- 
puter. A memory location is one of 
65536 storage places called bytes in 
which a number is stored. Each of 
these bytes holds a number for pro- 
grams, data, color, sound, system 
operation, or is empty (i.e. , has a zero 
in it), waiting for you to fill it with 
your own program. 

Each byte is composed of eight bits, 
each of which can be either a one (on) 
or a zero (off). The alterable area of 
memory you use for your programs 
is called the Random Access Memory 
(RAM), while the area used by the 
Atari to run things is called the Read 
Only Memory (ROM). Although some 
of the memory locations in the spe- 
cial Atari chips were designed to be 
written to like the RAM, the rest of 
the ROM, including the Operating 
System ROM, cannot be altered by you 
since it contains routines such as the 
floating point mathematics package 
and the input/output routines. 

I hope that you are familiar enough 
with your Atari to understand some 
of these rudimentary uses of a mem- 
ory map. It is not the scope of this 
manual to fully explain how to use 
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PEEK and POKE statements. Briefly, 
however, PEEK allows you to look at 
the value stored in any one memory 
location. If you want that value to be 
printed to the screen, you must pref- 
ace the PEEK statement with a PRINT 
statement such as: 

PRINT PEEK (708) 

If you haven't changed your color 
registers, this will return the number 
40 to your screen. All bytes in the Atari 
can hold a number between zero and 
255- POKE allows you to place a value 
into a byte, such as: 

POKE 755,4 

By doing this you will have turned 
your text upside down! You can re- 
turn it to normal by: 

POKE 755,2 

Similarly, POKE 710,80 will turn 
your screen dark purple! As with 
PEEK, POKE can only involve num- 
bers between zero and 255. You will 
not be able to POKE into most of the 
ROM locations since the numbers in 
many of them are "hard-wired," 
"burned" into the chip, and cannot 
be changed in this manner. 

So how does the Atari (or other 8- 
bit microcomputers, for that matter) 
store a number larger than 255? By 
breaking it down into two parts; the 
Most Significant Byte (MSB), 
which is the number divided by 256 
and rounded down to the nearest 
whole number, and the Least Signifi- 
cant Byte (LSB), which is the origi- 
nal number minus the MSB. The Atari 
knows to multiply the MSB by 256 
and add the LSB to get the number. 
For example, the number 45290 is 
stored as two parts: 234 (LSB) and 176 
(MSB). 176 times 256 equals 45056, 
plus 234 equals 45290. 

LEAST-MOST STORAGE 

The Atari uses the convention of 
storing addresses in the LSB/MSB 



manner in memory (i.e., the smaller 
part is in the first memory location). 
For example, locations 88 and 89 
store the lowest address of the screen 
memory. Let's say the numbers found 
there are 22 and 56, respectively. To 
get the decimal address, you take the 
MSB (stored in 89) and multiply it by 
256, then you add it to the LSB at 88. 
In our case that's 56 * 256 equals 
14336, plus 22 equals 14358. This is 
the address of the upper left corner 
of the screen. A simple way to do this 



in BASIC is: 

BYTE = PEEK (88) + PEEK (89) * 
256 

The reverse (to break up a decimal 
location into MSB and LSB) is done 

by: 

MSB = INT (BYTE/256):LSB = 
BYTE -MSB * 256 

This process is easier for assembly 
language programmers who use hex- 
adecimal numbers, since the right two 
digits are always the LSB and the two 
left of them are the MSB. For exam- 
ple: 

SD016 (hexadecimal for 53270) 
equals 16 (LSB) and DO (MSB) 

$16 equals 22 in decimal, and $D0 
equals 208 decimal. Multiply the MSB 
by 256 and add 22 and you get 53270. 
Throughout the map portion of this 
book I have provided both decimal 
and hexadecimal numbers together 
for ease of reference. In 8K BASIC, 
you can use decimal numbers only 
with POKE, and PEEK will return 
only decimal values to you. 

Hexadecimal is a base 16 used in- 
stead of the normal base ten system 
because it is more suited to the eight- 
bit structure of the computer. So, 
when we say 2175 in decimal, what 
we really mean is: 

10000 1000 100 10 1 
0 2 17 5 



In hex, the same number is $87F. 
That breaks down to: 

4096 256 16 1 
0 8 7 F 

Rather than multiply each next step 
up by ten, we multiply by 16. Okay, 
but where do we get "F" from? Well, 
if base ten has the numbers zero to 
nine, base 16 will have to have some 
letters added to the end to make up 
for the extra numbers: 



So $¥ equals 15 in decimal. Now 
here's how it all relates to binary math 
and bits: 

Each byte can be broken up into 
two parts (nybbles), like this: 
0000 0000 

If each nybble is considered a sep- 
arate number, in decimal, the value of 
each would range from zero to 15, or 
zero to $F. Aha! So if all the bits in 
each group are on (one, or set), then 
you have: 

1111 1111 Binary 
15 15 Decimal 

F F Hex 

You join the two hex numbers to- 
gether and you get $FF (255 in deci- 
mal), the largest number a byte can 
hold. So you can see how we trans- 
late bytes from binary to hex, by trans- 
lating each nybble. For example: 

1001 1101 Binary 
9 13 Decimal 

9 D Hex 

$9D equals nine times 16 plus 13, 
or 157 in decimal. 

0100 0110 Binary 
4 6 Decimal 

4 6 Hex 

$46 equals four times 16 plus six, 
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or 70 in decimal. 

1111 1010 Binary 
15 10 Decimal 

F A Hex 

$FA equals 15 times 16 plus ten, or 
250 in decimal. 

Obviously, it is easier to do this 
with a translation program or a cal- 
culator! 

Since I will often be discussing set- 
ting bits and explaining a small 
amount of bit architecture, you should 
be aware of the simple procedures by 
which you can turn on and off 
specific bits in any location (that is, 
how to manipulate one of the eight 
individual bits within a byte). Each 
byte is a collection of eight bits: num- 
bers are represented by turning on the 
particular bits that add up to the num- 
ber stored in that byte. Bits can be ei- 
ther zero (0 equals off) or one (1 
equals on, or SET). The bits are num- 
bered zero to seven and represent the 
following decimal numbers: 

Bit 7 6 5 4 3 2 1 0 
Value 128 64 32 16 8 4 2 1 

The relationship between the bits 
and the powers of two should be ob- 
vious. Adding up all the numbers (all 
the bits are set) gives us 255. So each 
byte can hold a number between zero 
(no bits are set) and 255 (all bits are 
set). 

Sometimes, instead of zero, no bits 
set is intended to mean 256. That will 
be noted in the relevant locations. So 
how do you set a bit? Simple: POKE 
it with the appropriate number. For 
example, to set Bit 5, POKE the loca- 
tion with 32. To set Bits 7, 5 and 4, 
add up their values, 128 + 32 + 16, 
and POKE the location with the to- 
tal: 176. 

Sometimes you need to set a bit 
without changing other bits already 
set, so you: 

POKE number, PEEK (number) + 
decimal value for the bit to be set.(i.e. , 



POKE 50418, PEEK (50418) + 32) 

To turn off a bit, instead of adding 
the value you would subtract it with 
POKE number, PEEK (number), mi- 
nus the decimal value for the bit to 
be turned off. Binary math is simple 
and easy to learn; if you don't under- 
stand it now, you should do further 
reading on machine language before 
attempting any serious use of this 
guide. 

AND, OR, And EOR 

It is useful to know how to perform 
Boolean logic on bits. There are three 
functions used in assembly code for 
bit manipulation in this manner: 
AND, OR and EOR (exclusive OR). 
Each requires you to use two num- 



ln brief: 

Original: Mask: 
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0 1 
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bers, the one being acted upon and 
the one used to perform the function. 
Here is a brief explanation of how 
these logical functions work: 

AND is usually used as a mask — to 
zero out unwanted bits. You compare 
two binary numbers using AND; if 
both bits in the same location are one, 
then the result is one. If either bit is 
zero, then the result is zero. For 
example: 

51 = 00110011 
AND 15 = 00001111 
Result = 00000011 = 3 

OR is frequently used to force set- 
ting of a bit. If either bit in the origi- 
nal or the mask is one, then the result 
is one. For example: 

65 = 01000001 
OR 128 = 10000000 

Result = 11000001 = 193 



In this case, 65 is the AIASCII "A". 
By ORing it with 128, we get 193, the 
AIASCII inverse "A". 

EOR "flips" bits in the original if 
the mask has a one in the same loca- 
tion. For example: 

193 = 11000001 
EOR 128 = 10000000 

Result = 01000001 = 65 

In this case, we have returned the 
inverse 'A" to the normal AIASCII 
value. An EOR with 255 (all ones) will 
produce the complement of the 
number: 

171 = 10101011 
EOR 255 = 11111111 
Result = 01010100 = 84 



OR: EOR: 

0 0 
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Atari BASIC supports AND, OR and 
NOT; NOT is the logical complement 
where NOT1 equals zero and NOT0 
equals one. If the expression is true, 
you get a zero; if NOT true, a one is 
returned — for example NOT ((3 + 4) 
> = 6) results in zero. 

In general, I have attempted to 
avoid using 6502 assembly language 
mnemonics, but have included them 
where I felt their use described the ac- 
tion to be taken better than a lengthy 
explanation. Most common are JMP 
(jump to location), JSR (ju m P to 
subroutine), RTS (return from subrou- 
tine), and RTI (return from interrupt). 
Readers should be minimally familiar 
with machine language in order to 
understand any machine language 
subroutines used here. 

You can't hurt the machine by 
POKEing about in memory, although 
you may crash any program in mem- 
ory, so SAVE your program first. 
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Usually you can salvage it by pushing 
[RESET], but you may have to turn off 
the machine and reboot on occasion. 
You can learn a lot about your ma- 
chine by simply playing around with 
it. 

ABOUT LANGUAGES 

The majority of the information 
here concerns language-independent 
locations and can be used regardless 
of the language you use for your pro- 
gramming. When the location is 
language-dependent, such as the BA- 
SIC or DOS areas, I have noted it in 
the proper section. You may exert the 
same control over your Atari in what- 
ever language you chose. You will ob- 
viously have to change the commands 
PEEK and POKE to the proper com- 
mands of your language. 

BASIC is a good language to start 
with: you can use it to learn program- 
ming, to explore your computer, to 
experiment with, and to have fun 
with. However, when you are ready 
to go on, you will have to learn a more 
efficient, faster language if you really 
want to make the best use of your 
Atari. Many people choose 6502 ma- 
chine language because of its speed. 

Computer languages, whichever 
you use, are quite exact in their mean- 
ing, especially compared to English. 
Consider that in English, a fat chance 
and a slim chance both mean the 
same thing. Yet POKE, PUT, and 
PUSH have very different meanings in 
computerese. 

GLOSSARY 

ANTIC, CTIA AND GTIA, PIA, 
POKEY: Special Atari chips control- 
ling the 400/800 's graphics, color and 
screen resolution controller jacks and 
sound, respectively. Located in ROM, 
locations 53248 to 54783. ANTIC 
also processes the Non-Maskable In- 
terrupts and POKEY processes the In- 
terrupt Requests. These chips, along 
with the 6502 microprocessor which 
runs the rest of the Atari, are housed 
inside your computer, protected by 
the metal shielding underneath the 



plastic cover. 

BIT, BYTE: A bit is the smallest size 
division of memory in your com- 
puter. It is so small that it can hold 
only one value in it: off (zero) or on 
(one). Eight bits together form a byte; 
this is the size of the memory loca- 
tions discussed in this book. You will 
sometimes hear programmers talk 
about a half-byte called a "nybble." 

CIO: Central Input/Output routines 
located in ROM. Controls Input/Out- 
put Control Block operations. Briefly, 
CIO handles the data input and out- 
put through the device driver(s) (also 
known as device handlers), then 
passes control to those drivers. It's a 
single interface with which to access 
all peripherals in a device- 
independent manner (i.e., uniform 
handling of data with no regard to the 
device being accessed). As an exam- 
ple: writing data to a disk file is treated 
in an identical manner as writing data 
to the screen; commas insert blanks 
between elements and both semi- 
colons and commas suppress the End- 
Of-Line character (EOL). 

DCB: Device Control Block, used 
by Serial Input/Output. 

DL: Display List. This is a set of in- 
structions which tell the ANTIC chip 
where to find the screen display data 
and how that data is to be placed on 
the TV screen. 

DLI: Display List Interrupt. A DLI 
causes the display to stop processing 
to temporarily run a user-written 
routine. 

DOS: Disk Operating System. The 
software loaded from disk file 
DOS.SYS that controls all disk I/O. 
The latest edition of DOS is called 
DOS 2.0S (S for single density). 

DUP: Disk Utilities Package. The 
software loaded from disk file 
DUP. SYS that handles the DOS menu 
functions such as Copy. 

FMS: (or sometimes DFMS): File 
Management System portion of DOS; 
a dedicated device driver that controls 
all I/O operations for device "D:". 

FP: Floating Point mathematical 
package in ROM. 



I/O: Input/Output. 

IOCB: Input/Output Control 
Block. Area of RAM (locations 832 to 
959) used by CIO to define operations 
to devices such as the disk drive (D:), 
printer (P:), screen display (S:), key- 
board (K:) and screen editor (E.). 
ZIOCB is the page zero IOCB. 

IRQ: Interrupt Request used for 
serial port communication, periph- 
eral devices, timing and keyboard in- 
put. IRQ's are processed by the 
POKEY chip. 

NMI: Non-Maskable Interrupt; 
used for video display and RESET. 
NMIs are processed by the ANTIC 
chip. 

OS: Operating System. The resident 
system that runs the Atari. 

Although people often refer to the 
entire ROM area as the OS, this is not 
correct. The OS ROM is that portion 
of memory which holds the floating 
point package, the Atari character set, 
the device handlers, and both CIO 
and SIO. The actual operating system 
itself is the portion of the OS ROM 
which handles the I/O. 

PMG, PM Graphics: Player/missle 
graphics. Players and missiles are spe- 
cial moveable, user-defined, colored 
screen objects. They are often used for 
games, animation, or special cursors. 
PM graphics are unique in that you 
can establish the manner (priority) in 
which they interact with the rest of 
the screen display and each other. 

RAM: Random Access Memory. All 
memory below the OS area (0 to 
4915 1) which is used for storage, pro- 
grams, buffers, cartridges, DOS, IOCB, 
shadow registers, and registers for the 
special Atari chips. Random Access 
means you can get to and from these 
locations at random, not that they 
store information randomly! 

ROM: Read Only Memory. That 
part of high memory (locations 49152 
to 65535) in which the special hard- 
ware chips and the OS reside. ROM 
is also used to describe cartridge 
memory such as the 8K BASIC ROM, 
which cannot be user-altered (the car- 
tridge ROM supersedes the RAM). You 
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cannot alter most of the ROM, al- 
though some of the locations in the 
special Atari chips may be temporar- 
ily set to a new value. 

With both RAM and ROM, we re- 
fer to areas with lesser values as be- 
ing in "low" memory and locations 
with larger values as being in "high" 
memory. 

SIO: Serial Input/Output routines 
located in ROM. Controls serial oper- 
ations including the 850 interface (R:) 
and cassette recorder (C:). Briefly, SIO 
controls the Atari peripherals as per 
the request placed in its Device Con- 
trol Block (DCB) by the proper device 
driver. It is also accessed by FMS for 
data transfer. 

VBI: VBLANK interrupt. A VBI is 
an interrupt that occurs during the 
VBLANK interval, causing the com- 
puter to jump to a user-specified lo- 
cation to process a short user-written 
routine during the VBLANK process. 

VBLANK: Vertical Blank. The in- 
terval between the time the TV elec- 
tron beam turns off after reaching the 
bottom right corner of the screen and 
returns to the top left corner and turns 
back on again. This small time period 
may be used by machine language 
programmers for short routines with- 
out interrupting the display by writ- 
ing a VBI (above). There are two 
VBLANK stages. Stage one is per- 
formed every VBLANK cycle (1/60 
second). Stage two is performed ei- 
ther every 1/30 second or every 1/60 
second when it doesn't interrupt 
time-critical code being executed. See 
the end of the memory map for the 
processes executed in each stage. A 
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A Graphics Memory Map 

This diagram is not to scale; it is 
merely meant to give you a visual 
idea of the structure of the Atari 
memory. The numbers on the right 
are the memory pointers: these loca- 
tions point to the addresses shown. 
The numbers on the left are the ac- 
tual locations in memory. 

Notes 

The bottom of the BASIC RAM de- 
pends on whether or not you have 
DOS files loaded in. Without DOS, 
LOMEM should be 1792, with DOS 
7420. If you increase or decrease the 
number of disk and sector buffers 
by modifying DOS, this value will 
change again. See locations 743, 744 
and 1801, 1802. 

The size and location of the vari- 
able, string and array tables depend 
on the program use and size. The 
more variables and arrays, the larger 
the memory the tables use. 

The size and address of the Dis- 
play List and screen memory depend 
on the GRAPHICS mode in use. 



The first 256 bytes pointed to by 
LOMEM are the token output buffer. 
The actual BASIC program starts at 
the address pointed to by VNTR 



Atari Timing 

clock frequency 
1 machine cycle 
1 frame 
scan lines 
color clocks 
color clocks 
machine cycles 
machine cycles 



Values 

= 1.79 MHz 

= 0.558 Msec. 

= 1/60 second 

= 262 /frame 

= 228/scan line 

= 2/machine cycle 

= 29868/frame 

= 114/scan line 



VBLANK time = 7980 machine cy- 
cles or less, depending on GRAPHICS 
mode. The shortest 6502 instruction 
requires two cycles; during that time 
the electron beam moves four color 
clocks. 

Horizontal blank time: 

18 machine cycles 



Wide playfield 
Normal 
playfield 
Narrow 
playfield 



34 machine cycles 
50 machine cycles 



Location 
65535 



Contents 



Pointers 



60906-65535 
59716-60905 
59093-59715 

58534-59092 



58533 

58496-58533 
58448-58495 
58432-58447 
58416-58431 
58400-58415 
58384-58399 
58368-58383 
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58367 
57344 
57343 
55295 



Top of memory 

Operating System ROM 

Device handler routines 794-831 HATABS 

Serial Input/Output (SIO) utilities 
Interrupt handler 512,513 VDSLST 

514-527 Vectors 
Central Input/Output (CIO) utilities 



Operating System vectors 

Initial RAM vectors on powerup 

JMP vectors 

Cassette 

Printer 

Keyboard 

Screen 

Editor 



ROM Character set _ 



756 CHBAS 



Floating Point ROM package 
I/O chips 
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Contents 

Unused 
ANTIC 



PIA 

POKEY 



Pointers 



Location 



756 
755 

564-565 
560-561 
559 

636-639 

632-635 

624-631 

562 

16 



CHBAS 

CHI 

LPEN 

SDLSTL 

SDMCTL 

PTRIG# 

STICK# 

PADDL# 

SSKCTL 

POKMSK 



unused 

GTIA or CTIA 



Unused 4K ROM block. 



704-707 PCOLR# 
708-712 COLOR# 
644-647 STRIG# 
623GPRIOR 



8K BASIC ROM 
or Left cartridge (A) 



Top of BASIC RAM or 



106 RAMTOP 



740 RAMSIZ 



Right cartridge (B) ROM if present 
(Atari 800 only) 



Text window screen RAM 
40800 for GR.O 

Bottom of screen RAM 
40000 for GR.O 

Display List: 
39968 for GR.O 

Top of BASIC RAM 



User-program RAM 



60,661 TXTMSC 
88,89 SAVMSC 
560,561 SDLSTL 
741,742 MEMTOP 



The amount of RAM can be ascertained by: 
PRINT FRE(0) 

Bottom varies: see note below 
Depends on buffer area allocated. 



RAM used by DOS and File System Manager 

144,145 MEMTOP 
Stack for FOR-NEXT & GOSUB 142, 143 RUNSTK 

14,15 APPMHI 



String & array table & 
end of BASIC program 



140,141 STARP 



(7420) 



6781 
6047 
5440 

5377 



1792 
1791 _ 



Contents 
BASIC program 
area 

Statement table: 

Beginning of BASIC program 

Variable variable table 

VNTP + 1 

Variable name table 

BASIC bottom of memory 



Sector buffers 

Drive <& sector buffers 

DOS vector 

DUP.SYS start 

VTOC buffer 

DOS initialization 

or BASIC RAM without 

DOS resident 

FMS RAM 

DUP.SYS beginning 



Pointers 



136,137 STMTAB 

134,135 VVTP 

132,133 VNTD 

130,131 VNTP 

743,744 MEMLO 
128,129 LOMEM 

4921,4937 SABUFL/H 
4905,4913 DBUFA1/H 
10,11 DOSVEC 



12,13 DOSINI 
(743,744 MEMLO) 
(128,129 LOMEM) 



RAM used by OS and cartridge, 
(to bottom of RAM) 

Page six RAM 
1535 



1406 
1405 



RAMusaH by BASIC 


(to bottom of RAM) 


Floating Point RAM 


BASIC RAM 


1151 


Operating System RAM 




Cassette buffer 




Printer buffer 




IOCB's 


512 




511 


Stack 


256 




255 


BASIC zero page RAM 




Floating Point pg. 0 




Assembler Cart. pg. 0 


128 




127 


OS page zero RAM 




Zero page IOCB 


0 


Bottom of memory 
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Carnival 
of Cartridges 

Food Fight, Karateka and lots more hits. 

Reviewed by David Plotkin 



FOOD FIGHT 

Food Fight ($24.95) is a very sim- 
ple (but messy) game. You control 
Charley, who starts out on the right 
side of the screen. The object is to 
guide him to the left side, where a 
dripping ice cream cone awaits him. 
Charley has 32 seconds to get across 
the screen, otherwise the ice cream 
melts, costing him one of his three 
lives. Sounds easy, right? 

Well, of course, there is more to it 
than that! There are manholes strewn 
across the screen, and you must take 
care that Charley doesn't fall into one. 
More importantly, cooks emerge from 
these manholes, and they chase 
Charley across the screen, trying to 
keep the poor boy from his just des- 
serts. If one of these cooks touch 
Charley, there goes another life. 

Fortunately, Charley is not defense- 
less. There are piles of food on the 
screen, and he can grab these (one pile 
at a time) and toss them at the cooks. 
If he hits a cook with a banana, 
tomato, pie, etc., the cook becomes 
so embarrassed he turns red and 
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Food Fight 



leaves the screen. Unfortunately, an- 
other soon replaces him. 

Food Fight is a challenging (and 
frustrating) game because the place- 
ment of the food on the screen ap- 
pears to be random. Sometimes the 
cooks start out closer to poor Charley 
than a pile of food does. The cooks 
can run faster than Charley, so unless 
he can get to a pile of food and load 
up with some throwing weapons, it's 
curtains for him. 

Still, the action is fast and the 
graphics are good. You'll want to use 
a good joystick for this one. 



KARATEKA 

In Karateka you are an expert in 
the martial art of Karate. Your village 
has been destroyed and your intended 
carried off by the evil warlord, 
Akuma. You must defeat Akuma's 
warriors in battle to rescue your 
sweetheart. 

You can control the blond hero of 
Karateka with keyboard or joystick. 
Using the joystick, pressing the but- 
ton quickly unleashes a punch, while 
holding down the button results in a 
kick. In the heat of battle it's hard to 
control whether you punch or kick. 
Blows can be directed high, medium 
or low by moving the joystick in the 
appropriate direction before pressing 
the button. 

The keyboard controls work quite 
well. The arrow keys direct your alter- 
ego forward and back, while an 
easily-reached set of six keys direct 
punches and kicks. Because each key 
is assigned its own function, you can 
achieve very precise control, which 
is certainly necessary in the upper 
levels of the game. 
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ANTIC, THE ATARI RESOURCE 



Atari's latest release of XE game cartridges — which run on 
all Atari XL/XE computers with at least 64K memory — revives 
a number of coin arcade or disk classics that had been 
unavailable in the Atari 8-bit market for some time. 





As you defeat opponents, you be- 
gin moving towards the castle. Inside 
the castle, you will have to face more 
opponents, generally far more skill- 
ful than those you faced outside. You 
also have to figure out how to get past 
the diabolically deadly iron gate. And 
Akuma's war bird will attack to steal 
your strength. 



Karateka is a multi-faceted game, re- 
quiring considerable arcade skill, plus 
the ability to recognize the attack pat- 
terns of your opponents. The graphics 
and animation are superb. The 
smoothly scrolling high-resolution 
background is extremely realistic, and 
the karate moves of both your hero 
and the opponents are true to life, 



right down to the swishing of the 
robes. And if you ever manage to see 
the final sequence (remember to bow 
to your intended. . .) it will make all 
the hours spent with this game very 
worthwhile. 

CRYSTAL CASTLES 

In Crystal Castles ($24.95), you 
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guide Bentley the bear as he makes his 
way through a variety of three-dimen- 
sional mazes. The paths in these 
mazes are littered with gems, and 
Bentley must pick them all up before 
he can move to the next level. He can 
also pick up pots of honey for extra 
points. 

A whole host of creatures try to 
prevent Bentley from achieving his 
life's ambitions. These creatures in- 
clude animated trees, skeletons, and 
a swarm of bees. Bentley can grab a 
magic hat to protect him for awhile. 
He can also jump over many of his 
enemies. 

The mazes in Crystal Castles are 
what set this game apart from 
others — previously as a coin-op hit 
and now as an XE game cartridge. In 
extra-sharp colors, the mazes simulate 
3-D, with gem-laden paths on multi- 
ple levels connected by elevators. 
There are also tunnels, and when 
Bentley goes into a tunnel or behind 
a structure, he becomes an outline so 
that you can see where he is. 

Controlling the game takes a little 
getting used to, because the joystick 
diagonals are used to guide Bentley 
through the maze. But the system can 
be mastered and the game is a lot of 
fun. 

DARK CHAMBERS 

Dark Chambers ($34.95) is one of 
the best dungeon arcade games 
released in XE cartridge. Using the 
joystick, you must guide your well- 
animated onscreen character though 
26 mazes. He is armed with fireballs, 
and it's a good thing — these dungeons 
are full of dangerous beings. 

At various places in each level 
"spawners" create the enemies, which 
are set up in levels of power. The most 
powerful is a Grim Reaper. Shooting 
one of these turns it into a Wizard. 
Shooting a Wizard turns it into a 
Wraith, then a Skeleton, and finally 
a Zombie. Shooting a Zombie kills it. 
Thus, some of your enemies must be 
shot five times to kill them! 

The spawners keep creating crea- 
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tures until you destroy them by shoot- 
ing them. As you have probably have 
guessed, it takes five shots to destroy 
a Grim Reaper spawner (through Wiz- 
ard spawner, Wraith spawner, etc.). 

Fortunately, the enemies aren't very 
bright (But then, you aren't either, or 
you wouldn't be in this dungeon.) So 
they simply line up to be killed. You 
lose life energy if an enemy does 
touch you, and the game is over when 
your life energy is gone. You can 
recharge your energy by eating food 
and drinking potions which are found 
in the dungeon. 

Other things can be found in the 
dungeon, such as the Keys necessary 
to open locked sections. Bombs 
which destroy all enemies on the 
screen, treasure, or extra weapons 
such as shields and more powerful 
fireballs are also to be found. But look 
out for the traps and poison, which 
all cost you life energy. 

The smooth animation and fast ac- 
tion, coupled with the excellent play- 
ability (at the beginner setting, even 
a novice should be able to survive 
quite a while) make this a superb 
game. The 26 levels provide lots of 
variations as well. 

CROSSBOW 

Crossbow ($34.95) is a game for 
the Atari light gun. The opening 
screen shows a large number of loca- 
tions including a desert, volcano, cas- 
tle, town and jungle. From your cur- 
rent location, two or three paths are 
available, and these paths lead to other 
locales. Unfortunately, the paths don't 
show on the screen, so you'll proba- 
bly want to map where the three 
color paths lead to so that you don't 
wander aimlessly around the screen! 

Once you choose a path, the char- 
acters in your party (referred to as 
your "friends") set out on their jour- 
ney. The scene switches to the select- 
ed location, and your party appears, 
moving leisurely across the screen 
while all heck breaks loose around 
them. 

Large numbers of unfriendly crea- 



tures try to wreak havoc on your 
friends. Lightning bolts descend, 
ghosts appear, rocks careen down the 
path, attacks come from spiders, scor- 
pions, alligators, pterodactyls (!) and 
man-eating plants — to name just a few 
of the different hazards in each loca- 
tion. Of course, if anything touches 
one of your friends, the poor soul is 
fried and no longer remains a mem- 
ber of your party. 

So what is your job? Well, you must 
protect the party by shooting the ob- 
stacles out of the way with your light 
gun before they can do any harm. 
This can be quite a challenge, because 
not only is the Atari Light Gun not es- 
pecially accurate, you are required to 
protect four or five characters from all 
those hazards. 

The game becomes a little easier af- 
ter some members of your party get 
fried, but when the last one is gone, 
the game is over. If you do extra well 
on a screen, another person is added 
to your party (lucky you!). 

Crossbow, I must admit, is just a gas 
to play. The effects are great (watch 
closely when a friend gets fried), the 
playability good and addicting — 
you'll keep coming back for more. 

THUNDERFOX 

Your home planet is under attack 
(again!). It's up to you in your Feder- 
ation Thunderfox ($24.95) space 
fighter to destroy the alien transports 
bringing special crystals to power a 
deadly war machine. 

This game is played in stages. When 
you first launch, you must approach 
the transport, dealing with forma- 
tions of enemy fighters that try to 
both ram you and fire at you. Addi- 
tionally, the transport has powerful 
guns, and part of the transport sticks 
up so high that you will crash if you 
try to fly over these portions of the 
ship. 

Your fighter is armed with two 
weapons — guns which are effective 
against enemy fighters, and bombs 
which must be used against the trans- 
port. The transport has "ground in- 
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stallations" which are good for points 
but should be ignored because they 
are surrounded by obstacles you can 
crash into. 

The object is to bomb the two 
"anti-gravity stabilizers". Each one 
must be hit five times. Since you can't 
carry ten bombs, you must return to 
your mother ship to reload, then re- 
turn to finish the job. 

If you can manage to disable the 
stabilizers, a door in the transport 
opens and you enter the ther- 
monuclear laser room. You must 
maneuver through some very close 
quarters and avoid enemy lasers — 
hurrying all the while because of the 
room's radiation. If you survive, the 
third level has you facing off against 
a large "Crystal Guardian," which 
takes multiple hits to kill. 

Thunderfox is simply too hard. 
Typical games last only seconds, es- 
pecially since your fighter "bounces" 
off the invisible boundaries of the 
scrolling screen — usually into an ob- 
stacle. You can have just a single mis- 
sile on the screen at once, which fur- 
ther limits your shooting. 

CHOPLIFTER 

The 64 delegates to the Peace Con- 
ference have been taken hostage by 
the Bungeling Empire and placed in 
locked bungalows. Your mission in 
Choplifter ($24.95) is to pilot a 
helicopter from a secret base (dis- 
guised as a post office) into enemy ter- 
ritory and rescue the hostages. 

Your chopper can hold sixteen 
hostages, which means you must 
make multiple trips. Each trip gets 
harder because the enemy adds more 
sophisticated weapons to make your 
life miserable. 

On the first level you face tanks, 
which are rather easily avoided by 
simply staying above their fire and 
blasting them into tiny pieces with 
your guns. The danger of the tanks, 
however, is that the gunfire will kill 
some of the hostages, so it is best to 
take out tanks as soon as possible. 

You must blast open each bunga- 



low. (Or let a tank do it for you, 
they're really good at it.) Little figures 
will then run out and wave at you. Be 
careful where you set down your 
chopper, or you might crush a few 
hostages. When you land, the figures 
run to the helicopter and climb 
aboard. You can then fly back to base 
and unload for the next trip. 

Starting with the second trip, more 
enemies show up — jets firing missiles 
and homing drones. The drones are 
rather easily destroyed, but the jets are 
tough — they come in fast and are hard 
to hit. 

The helicopter can face forward, 
left or right. To switch directions, you 
must press the fire button and pull the 
stick in the direction you want to 
turn. Unfortunately, this is exactly the 
same maneuver you make in the heat 
of battle when you don't want to turn! 
Thus, you end up changing directions 
a lot when you don't want to, which 
can shorten your games considerably. 

The graphics are incredible. The 
helicopter, enemies, background and 
base are highly detailed, and the res- 
cued hostages even wave to you as 
they get off the chopper. Choplifter 
is a timeless classic on the Apple and 
Atari 8-bit computers, and the even 
more detailed graphics in this version 
help make it a very good game. 

INTO THE EAGLE'S NEST 

Three of your comrades have been 
captured in Into the Eagle's Nest 
($24.95). The Eagles Nest is a Nazi 
fortress where top officials are meet- 
ing to plan a counterattack. You must 
try to rescue the three saboteurs and 
blow up the castle with the explosives 
they planted. The castle contains 
locked doors, many floors, an eleva- 
tor, chests, jewels, spare ammunition 
and many, many soldiers. 

You must negotiate the castle 
(which looks suspiciously like a 
maze), blasting Nazi soldiers as you 
go. They, of course, shoot back (or 
more accurately, try to hit you), and 
if you are hit 50 times, you die and 
the game ends. You can recover from 



these hits by finding medical kits and 
food which have been rather care- 
lessly left about the castle. 

Pay close attention to ammunition 
too, because you can only carry 99 
rounds, and you run out surprisingly 
quickly. If you manage to find your 
comrades, you must attempt to exit 
the castle with them. This is tough, 
because they are weak and sick and 
don't move too fast. 

The Nazi soldiers (This game 
should sell real well in Germany!) sim- 
ply line up to be shot, much like the 
creatures in Dark Chambers. In fact, 
this whole game is quite similar to 
Dark Chambers, but not as playable. 
Your lack of ammunition makes it 
tough, and a single mistake (like 
shooting a box full of dynamite) can 
cost you the game! Overall, Dark 
Chambers is a better game of this 
same type. 

CRIME BUSTER 

Crime Buster is an exciting game 
that uses the Atari Light Gun and pro- 
vides a "blasting" good time. You play 
one of the city's top detectives, out 
to wipe out crime once and for all. 

You choose a one- or two-player 
game by blasting holes in the appro- 
priate choice. You can, of course, 
shoot holes in anything you want. 
The destructive effect is quite 
gratifying. 

You must choose a section of the 
city from a map — just fire twice at the 
section you want. If the section of the 
city you choose is not adjacent to the 
section you currently occupy, you 
must travel to the portion of the city 
in question. Travel is very dangerous, 
and the best strategy is to avoid it. If 
you do have to travel, your car ap- 
pears on the screen, traveling down 
a road which scrolls from left to right. 

You control the car by firing at ar- 
rows pointing left and right, which 
makes your auto move towards that 
direction. Periodically a gangster car 
appears and fires at you. If it hits you, 
your car explodes and you lose one 
of your three lives. 



AUGUST 1989 



31 



To fire back, you must shoot your 
light gun at arrows which determine 
your direction of fire. This is difficult, 
since you can't control the car's posi- 
tion and fire at the mobsters at the 
same time. It would have made more 
sense to let you fire at the mobster's 
car with your light gun. If you some- 
how manage to hit the mobster's car, 
it rolls over and explodes. 

At your destination, your goal is to 
plug all the gangsters in a classic 
shoot-out, while at the same time 
avoiding the innocent bystanders who 
don't have the good sense to get out 
of the way. Complicating matters, the 
gangsters sometimes dress up like in- 
nocent bystanders to try and fool you 
into not shooting them. 

Each scene is different. Settings in- 
clude buildings, a ship, and the inside 
of a warehouse. Gangsters appear in 
doorways and windows, pop out of 
boxes and manholes, and even come 
up from the water. 

The graphics in Crime Buster are 
very good. The mobsters' cars rolling 
over and over are very satisfying. 
When you blast the gangster with the 
hat on, his face changes and the hat 
flies off. Other effects are equally 
good. Overall, Crime Buster is an ex- 
cellent game which will keep you 
coming back to try to do better. 

AIRBALL 

In one of the more bizarre scenarios 
for video games, you become the 
plaything of an evil wizard who turns 
you into an Airball — with a slow 
leak! In order to escape this fate, you 
must find a spellbook and return it to 
the wizard. Of course, the spellbook 
is hidden in a 150-room mansion, 
which also contains spikes, needles 
and other nasty, pointed objects 
detrimental to the health of an airball. 

You move from room to room us- 
ing your joystick and make your air- 
ball hop into the air by pressing the 
fire button. The rooms are viewed in 
three-quarter perspective, which can 
be confusing. 

Bonus objects in the mansion in- 



clude gold bricks and precious stones. 
There are also crates which the airball 
can move, to uncover valuable ob- 
jects. You may also find such useful 
objects as a lantern, which can be 
quite handy in the rooms that have no 
light! When your pressure gets low, 
you must try to find an air pump — 
and then avoid death by overinflation. 

The graphics in Airball are very well 
done and detailed, with many of the 
rooms containing elaborate decora- 
tions. Strategy definitely plays a sig- 
nificant part in winning this game, as 
it is quite easy to get lost in the huge 
mansion. Be warned, though. This is 
an extremely frustrating game, with 
death just the barest miscalculation 
away. 

SUMMER GAMES 

Summer Games presents eight 
Olympic events for you to compete 
in, including diving, skeet shooting, 
pole vault, two swimming events, 
gymnastics and track. You may 
choose to compete in all the events 
in order, compete in a single event, or 
practice any given event. 

If you decide to compete, you must 
choose a name and country. Just high- 
light the flag of the country you want 
and that nation's national anthem will 
play. The impressive opening cere- 
mony has the Olympic theme play- 
ing, a runner lighting the torch, and 
doves flying away. 

The events themselves basically test 
your skill and timing with a joystick. 
Some work pretty well, while others 
are exercises in torture. 

The diving and gymnastics are 
similar in that you must press the 
joystick to various positions to con- 
trol the amount of "tuck" your con- 
testant uses. Both events end with 
scoring from the judges. 

You dive from the ten-meter board, 
and you can choose a variety of dives 
(forward, back, reverse). You control 
the spinning, twisting diver on the 
way down. The more difficult the 
dive, the more possible points you can 
get. 



The Gymnastics event has you 
leaping onto a springboard, then 
vaulting into the air (using a vaulting 
horse). Again, you control the gym- 
nast as she leaps and flies through the 
air. 

The first track event is a four-man 
relay. Here, you control the runner's 
speed, trying to go as fast as possible 
without using up the runner's stam- 
ina. There is also the small matter of 
passing the baton. The other track 
event is the hundred-yard dash, a 
"joystick buster" — just rattle the stick 
back and forth as fast as you can. 

The two swimming events are simi- 
lar. One is four-man relay, while the 
other is just a two-lap race for a sin- 
gle swimmer. You control the timing 
of your swimmer's start and kick- 
turn, and apply power to the swim- 
mer's arms at exactly the right mo- 
ment by pressing the fire button. 

The best event is the skeet shoot. 
You control a cursor that represents 
the aiming point of your shotgun. A 
standard pattern of skeet launchers 
throw groups of up to four clay 
pigeons into the air and you must fire 
at them. This simple event works very 
well. 

The most difficult and frustrating 
event is the pole vault. You must pre- 
cisely time the placing of your pole, 
leaping up and over, and releasing the 
pole in order to make it over the bar 
without knocking the bar off. Unfor- 
tunately, correctly timing that final 
press of the fire button to let go of the 
pole seems virtually impossible. 

No computer game can give you 
the actual feel of competing in a phys- 
ical sport — but how many people can 
seriously hope to compete in the 
Olympics? Summer Games, with its 
excellent graphics, animation and 
sound will provide a good time over- 
all for Olympic dreamers. A 

Atari Corp. 

1196 Borregas Avenue 
Sunnyvale, CA 94086 
(408) 745-2000 
$24.95 or $34.95, 64K XL/XE 
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TYPING SPECIAL ATARI CHARACTERS 



The Atari Special Characters and 
the keys you must type in order to 
get them are shown below: 

For [CONTROL] key combina- 
tion, hold down [CONTROL] while 
pressing the next key. For inverse 
[CONTROL] [A] through 
[CONTROL] [Z], press the [B] 
key— or [A ] on the 400/800— then 
release it before pressing the next 
key. (Press [ H ] or [ A ] again to turn 
off inverse.) For [ESC] key combina- 
tions, press [ESC] and then release 
it before pressing the next key. 

Carefully study the chart above 
and pay close attention to differ- 
ences between lookalike characters 
such as the slash key's [/] and the 
[CONTROL] [F] symbol [0]. 



NORMAL VIDEO 



FOR 
THIS 


TYPE 
THIS 


FOR TYPE 
THIS THIS 


H CTRL 


i 


S CTRL S 


QB CTRL 


A 


IS CTRL T 


□ CTRL 


B 


B CTRL U 


ffl CTRL 


C 


D CTRL V 


91 CTRL 


D 


B CTRL W 


B CTRL 


E 


ffl CTRL X 


0 CTRL 


F 


B CTRL Y 


S CTRL 


G 


ffl CTRL Z 


01 CTRL 


H 


B ESC ESC 


□ CTRL 


I 


ffl ESC CTRL - 


B CTRL 


J 


80 ESC CTRL = 


O CTRL 


K 


ffl ESC CTRL + 


B CTRL 


L 


ffl ESC CTRL * 


n CTRL 


M 


ffl CTRL . 


□ CTRL 


N 


!fi CTRL ; 


B CTRL 


0 


m SHIFT = 


BB CTRL 


P 


B ESC SHIFT 


ffl CTRL 


Q 


CLEAR 


S CTRL 


R 


BD ESC DELETE 
ffl ESC TAB 



INVERSE VIDEO 



FOR 
THIS 



□ 

□ 

D 

□ 

a 



TYPE 
THIS 

ESC 
SHIFT 

DELETE 
ESC 
SHIFT 

INSERT 
ESC 
CTRL 

TAB 
ESC 
SHIFT 

TAB 
A CTRL . 
A CTRL ; 
A SHI FT = 
ESC CTRL 2 
ESC 
CTRL 

DELETE 
ESC 
CTRL 

INSERT 



TYPO II AUTOMATIC PROOFREADER 

TYPO II automatically proofreads Antic's type-in BASIC listings. Type in the listing below and SAVE a copy to disk 
or cassette. Now type GOTO 32000. At the prompt, type in a single program line without the two-letter TYPO II 
code at the beginning. Then press [RETURN]. 

Your line will reappear at the bottom of the screen. If the TYPO II code does not match the code in the magazine, 
then you've mistyped your line. 

To call back a previously typed line, type [*], then the line number, then [RETURN]. When the completed line ap- 
pears, press [RETURN] again. This is how TYPO II proofreads itself. 

To LIST your program, press [BREAK] and type LIST To return to TYPO II, type GOTO 32000. To remove TYPO 
II from your program, type LIST ''D:FILENAME" 0,31999, then [RETURN], then NEW, then ENTER "D: FILENAME", 
then [RETURN]. Now you can SAVE or LIST your program to disk or cassette. 



Don't type the 
TYPO II Codes! 



UB 

un 

HS 

BN 

YC 

EM 
HS 

XH 



TH 
MF 



32868 REM TYPO II BY ANDY BARTON 

32816 REM UER • 1.8 FOR ANTIC MAGAZINE 

32828 CLR :DIM LINE* €128) : CLOSE »2:CL0 
SE »3 

32838 OPEN »2 , 4 , 8 , "E" : OPEN «3,5,e,"E" 

32846 ? M * M : POSITION 11,1:? ••HHHMBHUB" 

32858 TRAP 32848 ' POSITION 2,3:? "Type 
in a progran line" 

32866 POSITION 1,4:? INPUT »2;LINE 

$:IF LINE«="" THEN POSITION 2,4:LIST B 
:G0T0 32868 

32878 IF LINE*ci,l>="«" THEN B = U AL cL IN 
E$C2,LENCLINE$>>> POSITION 2,4:LIST B : 
GOTO 32868 

32888 POSITION 2,18:? "CONT" 

32898 B=UAL CLINE$J POSITION 1,3:? " ; 



NY 
CN 
ET 

CE 
QR 



UU 

UJ 
JU 
EH 
BH 
HB 
IE 

UG 



2186 

2118 

2128 

: P05I 

2138 

2148 

INES = 

TO 32 

2158 

N5+ CC 

2168 

2178 

2188 

2198 

2288 

2218 

LCODE 

2228 

Mate 
oue • •' 



POKE 
POKE 

? 

TION 

C = 8 : 

POSI 
.... T 

856 

FOR 

*A5C 

CODE 

CODE 

HCOD 

LCOD 

HCOD 

POSI 

l 

POSI 
h pr 
: GOT 



842, 13 : STOP 
842, 12 

: POSITION 11,1:? "■unftmaillll 

2,15:LIST B 
ANS = C 

TION 2,16:INPUT «3;LINE$:IF 
HEN ? "LINE ";B;" DELETED" : G 

D=l TO LENCLINE5* :C=C+l: ANS= 

CLINES CD, D>>> : NEXT D 

= INT CANS'676> 

=AN5- CC0DE*676> 

E = INT CC0DE'26> 

E = C0DE- CHC0DE*26J +65 

E=HC0DE+65 

TION 6,16:? CHR$ cHCODE) ; CHR5 



TION 2,13:? 

ess ■rasumrarci 

0 32656 



'If CODE does no 
and edit line a 
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MUCH MORE THAN A PHONEBOOK 



CUSTOMER LIST MANAGER 



Article on page 8 



LISTING 1 



Don't type the, 
TYPO II Codes! 



IB REM CUSTOMER LIST MANAGER 

20 REM BY THOMAS ANDREWS 

38 REM CC'1989, ANTIC PUBLISHING INC 

4 0 W0N = 1 : ZER0 = 6 » TEN=10 :5IX=6:5IXTY=TEN 
*SIX : HUN=TEN*TEN i TWO=WON+WON ' FIUE = 5 t MA 
X=190B8 

45 REM THE FOLLOWING ML ROUTINE WAS 
WRITTEN BY SCOTT 5HECK IN THE DEC 1984 
ANTIC 

50 FIND = ADRc >( h hO*hOKhnfflh3LJQ[BaDBHitl[llD!BBBH 
55 REM 

60 SRCH = ADR€ (l h hfflUhffll&h hafilhClUlhCliilhCILPlhar'JaW 

nhinii jEaiiis ? Eamuf^Eam[ai[Hj» 5 ■mnian ? m* » mmn mar: b m c 

65 chngr=adr c-hheifflhniahariihaQMifiniauanraEaiiim 
i JHD3 iiji wu rnwrnm mnmaanmmi 1 \:< 8 tam"i 

70 DIM ANSScTEN) ,LIcHUN> ,WIScHUN> ,WScS 
IXTY*TEN> , FLDS cSIXTY* , TITLES ci4> , FNAME 

5 CSIXTY* , HDGS C401 

80 DIM LS CMAXJ , SHIFTS C135> 

85 shifts cwoNi="hha[ihaiahnraha[t]hn[!jffiD!ihana 

liiUl.lldtflldliiiWHiW^ 

86 shifts c?6j = "niiiitacmEafci^rjHUjidiJtaaiEaiijfa&DLiH 

90 FNAMES="NAME : PHONE : ADDR .» TYPE :NOT 
ES:-:OPEN «T WO , 4 , ZERO , "K : " : OPEN «3,13, 
ZERO , "E : 

100 PRINT "N" 'POKE 710,198:POKE 709, ZE 
RO: POSITION SIX , ZERO t PRINT " ■HMBNKMaGl 

■i mm m\i m m mm :«* • • : t r a p 25000 

110 PRINT "A. START NEW LISTS" * PRINT " 
B. ADD TO LI5TW":PFLG=ZER0:DEU=ZER0:CL 
OSE **WON 

120 PRINT "C LOAD LIST FROM DISK*":PR 
INT "D. EDIT'UPDATE LIST*" 
130 PRINT "E. 5AUE LIST TO DISK!*" s PRIN 
SORT LIST*" : PRINT "G. PRINT'DISP 



T M F • 
LAY LIST** 
140 PRINT 



•H. CHANGE LIST TITLE*" I PRIN 



•I. LOAD EDIT OR WORD PROCESSOR FILE 

180 GOSUB 20000:IF NR=ZERO THEN IF NO 
T CCANS=W0N> OR CAN5=3> OR cAN5=9>> TH 
EN 100 

185 ON ANS GOSUB 200,1000,2000,3000,40 
00, 5000, 6000, 8000, 9000 
190 GOTO 100 

200 HDG$ = "!*)CREATE NEW LIST": GOSUB 1400 
0 '• POSITION TWO, SIX : G05UU 20020 
210 LS = —:NR = ZER0:LL = W0N:HDGSC1?J=» IT 
EM st-'.-GOTO 1005 

1000 HDGS = '*SADD TO PRESENT LIST " « G05U 
B 14000:HDGSC2H=" ITEM «" 

1005 IF NR=HUN THEN PRINT HDGS:POSITIO 
N TWO, TEN : PRINT "THIS LIST IS FULL!!": 
GOSUB 23000:RETURN 

1006 OUER=MAX-LL : IF 0UER<5IX*HUN THEN 
PRINT HDGS : POSITION T WO , TEN : PRINT "MEM 
ORY SPACE RUNNING LOW" : GOSUB 23000 

1007 ? HDGS;NR+WON:POKE 82, SIX:? :WS = » 
" : LNE=PEEKC84* -POKE 702, ZERO 

1010 FOR J=WON TO TEN : POKE 85,ZER0:G05 

OB 16000:POKE 764 , 255 : INPUT **16 , FLDS 

1015 IF FLDS="" THEN FLDS=" " 

1020 POKE 84, LNE : PRINT "U" ; FLDS : X=05R c 

CHNGR, ADR cFLDSj ,LENcFLDS3) 

103 0 WS CLENcWS)+WON>=FLDS : LNE=LNE+TWO : 

POKE 84 , LNE : NEXT J : POKE 82,TW0:P0KE 70 

2,64 

1033 IF LENCW$>>0UER THEN PRINT HDGS : P 
OSITION TWO , TEN : PRINT "THIS ITEM DOES 
NOT FIT!":GOSUB 23000:RETURN 



BW 

JK 

QE 

OH 
IX 
JB 

RR 

DR 

WG 

FL 

MJ 
MB 

DZ 



DG 
FK 



RO 
CT 
ZI 

AA 
OC 
LU 
PU 
5T 
TW 
ZB 

XK 

GW 
NU 
BB 

FG 

OS 
TR 
OH 

F E 

XL 
XB 
TJ 



10 35 LS CLL>=WS :NR=NR+WON t LI CNR>=LL : POS 
ITION TWO, 22 

1040 LL = LENCL$3+W0N:? "PRESS fflHODLflfJI FO 
R NEXT ITEM; BUGIEI! FOR MAIN MENU"; 
1050 ANS=PEEKC53279J :IF ANS = 3 THEN 100 
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1060 IF ANS < > 6 THEN 1050 
1070 LSCLL>="B":RETURN 

2000 HDG$ = "ltlLOAD LIST FROM DISK": PRINT 

HDGS:GOSUB 21000 
2010 OPEN ttW0N,4,ZER0,WS :INPOT »WON;Tl 
TLES : ? :? TITLES;" ••; 

2012 INPUT **WON , FLDS : YEA R = UAL cFLDS) :PO 
KE 752, WON : PRIN f YEAR 

2015 LS=»-sLL=WON:NR=ZERO:TRAP 2040:GO 
SUB 20040 

2020 W$="»:FOR J=WON TO TEN:INPUT »WON 

, FLDS : WS CLEN CWS> +WON> =FLDS:NEXT J 

2025 IF LL + LENCWS) > MAX THEN 2040 

2030 LS CLLJ =WS : NR=NR+WON i LI CNR* =LL : LL = 

I.LN(LS) + WON : IF NR < HUN THEN 2020 

2040 POKE 752, ZERO • TRAP 25000 : LS CLL* =" 

B" : CLOSE ttNON : PRINT "**THERE ARE " ; NR ; 

" ITEMS ON THIS LIST" 

2050 GOSUB 23600:RETURN 

3000 HDGS= M WEDIT' UPDATE LI5T":PRINT HD 
G$:P05ITI0N TWO , SIX s PRINT "WHICH FUNCT 

ION?**" 

3010 PRINT "A. EDIT AND UPDATE 1 YEAR* 
": PRINT "B. EDIT ONLY*" 

3015 PRINT "C OPDATE ONLY*" : PRINT "D . 

RETURN TO MAIN MENU" 
3020 GOSUB 20000:MODE=ANS:IF MODE=WON 
THEN GOSUB 15040 : YE AR= YE AR+WON I GOSUB 2 
0040 

3025 IF M0DE = 3 THEN GOSUB 21200 I YEAR = Y 
EAR+WON: GOSUB 20040 

3030 ON MODE GOTO 3050,3040,3050,20180 
:GOTO 3000 

3040 PRINT HDGS:GOSUB 15000.TRAP 25000 

3050 OPEN »W0N,8,ZER0,"D:EDITLIST.DAT" 
:? «WON;TITLES:? ttWON ; YEAR 

3051 I2=ZER0:F0R I=WON TO NR : IF WIScl, 
I>=»W THEN 3240 

3053 I2=I2+W0N : POKE 82,SIX:G0SUB 20100 

3055 POKE 764,255:P0SITI0N ZER0,22:P0K 
E 82, ZERO:? "HSiriUlBm=NEXT ITEM WliklUHfG 
=DELETE ITEM" 

3060 PRINT 1 ' [ Nk IMIBII I = M A I N MENU @B[§=RED 

0 THIS ITEM"; POSITION SIX , TWO » PRINT " 

SI(iH";:POKE 82,SIX:P0KE 702, ZERO 

3070 GET »TWO,A:IF A=125 OR A=156 OR A 

=157 OR A = 254 OR A=255 THEN 3070 

3075 IF A = 1S5 THEN POKE 85,5IX:PUT «3, 

29:G0T0 3070 

3080 IF A=WON OR A=13 OR A=4 THEN 3100 

3085 IF A=27 THEN 1=1 - WON x 12=12 - WON : NE 
XT I : RETURN 

3090 PUT **3,A:G0T0 3070 
3100 IF A<>4 THEN 3200 

3105 SOUND ZERO, SIXTY, TEN, TEN : FOR DELA 
Y=WON TO SIXTY:NEXT DELAY : SOUND ZERO, Z 
ERO, ZERO, ZERO 

3110 POKE 82,ZER0:P0KE 712 , 52 I POSITION 
2,22:PRINT "QHARE YOU SURE? cY'N*";:I 
NPUT ANSS 

3120 POKE 712,ZER0:IF ANSS=»» THEN 312 
6 

3125 IF ANSScWON,WON>="Y" OR ANSScWON, 
WON»="y" THEN 3230 

3126 I=I-WON: 12=12 - WON : NE X T I : RETURN 

ANTIC SOFTWARE LIBRARY 



3208 LNE=TWO • POKE 82,SIX:P0KE 85,SIX:F 
OR J = WON TO TEN : POKE 84,LNE:INPUT «3 , F 
LDS:IF FLDS=»» THEN FLDS=" " 
3210 X = U5R (CHNGR,ADR (FLDSi,LEN(FLDS>> : 
PRINT »WON;FLDS:LNE=LNE+TWO:NEXT J 
3230 POKE 702,64:POKE 82,TW0:G0T0 3255 

3240 POKE 752, WON : PRINT HDGS : POSITION 
TEN. TEN : PRINT "PROCESSING ITEM " ; I 

3245 RXl = LKI*-WON:LADl = RXl + ADR(LSi :FO 
R J = WON TO TEN BEGIN1 = USR (FIND, L AD 1 , J> 
+RX1 : LASTl=PEEK(WON)+BEGINl~UON 

3246 IF J=SIX THEN IF M0DE=3 THEN NEXT 
J 

3250 PRINT «WON; LS (BEGIN1, LAST1> :NEXT 
J:IF M0DE=3 THEN PRINT »WUN;"«" 
3253 GOTO 3260 

3255 IF MODE=WON AND A = 13 AND I2<ITEMS 
THEN 3380 

3256 IF A = 13 AND IONR THEN GOSUB 2120 
0 

3260 NEXT I : POKE 752 , ZERO : CLOSE «WON 
3270 TRAP 25000:WS=»D:EDITLIST.DAT":PR 
INT HDGS : GOTO 2010 

3380 PRINT "H" : POSITION T HO , TEN x PRINT 
"THE ENTIRE LIST MOST BE REUIEWED WHEN 

UPDATING" 
3390 GOSUB 23000 ' GOTO 3260 
4000 HDG$ = "S)SAUE LIST TO DISK" : PRINT H 
DGS:GOSOB 15000:PRINT HDGS:GOSUB 21000 
i TRAP 25000 

4010 OPEN «WUN,8,ZER0,WS:? »WON;TITLES 
:? ttWON; STRS (YEAR* 

4020 FOR I = MON TO NR : IF WIS cl , l> =••«•• T 
HEN 4050 

4030 RX1=LI CIJ -WON : LAD1=RX1+ADR CL^J :FO 

R J=UON TO TEN:BEG1N1=U5R(FIND,LAD1, J> 

+ RX1 : LASTl=PEEK(WON> +BEGIN1 - WON 

4040 PRINT «WON; L$ cBEGINl, LASTU :NEXT 

J 

4050 NEXT I: CLOSE **WON ' RETURN 

5000 HDG$="SSORT LIST":PR1NT HDGS ' PR1N 

T TITLES;" " ; YE AR 

5010 I = WON:GOSUB 20150 i A = ANS : IF A = T EN + 
WON THEN RETURN 

5020 I=TWO:GOSUB 20150 : B=ANS : IF B=TEN+ 
WON THEN RETURN 

5025 PRINT HDG$:POSITION T WO , T EN : P RIN T 

"CHECKING ITEM n : POKE 752 , WON 
5030 LAD=ADR(LS> : LI ADR= ADR c ANSS) +TEN+ 5 
IX:FOR I=NR TO TWO STEP - WON : 11=1 : 12=1 
- WON 

5035 POSITION 19,TEN:PRINT I;" " 

5060 RX1=LI clli -W0N:LAD1=LAD+RX1 

5065 BEGIN1 = USR (FIND, LADl,Ai+RXl: LAST1 

= PEEK(WONJ +BEGIN1 -WON 

5090 RX2=LI CI21 -WON : LAD2=LAD+RX2 

5100 BEGIN2=U5R (FIND, LA D2, A>+RX2:LA5T2 

= PEEK (WON* +BEGIN2UQN 

5130 IF LS (BEGIN1, LASTl* >LS (BEGIN2, LAS 
T2> THEN 5500 

5135 IF LS (BEGIN1 , LA5T1* <LS (BEGIN2, LAS 
T2> THEN 5160 

514 0 STRT1=USR (FIND, LAD1 , B>+RX1:FIN1=P 
EEK(WON> +5TRT1-W0N 

5145 STRT2=USR(FIND,LAD2,B>+RX2: FIN2=P 
EEK(WON> +STRT2 - WON 

5150 IF LS (5TRT1, FIND >=LS (5TRT2, FIN2> 
THEN 5500 

5160 FOR J=I TO NR:J1=J'IF J=NR THEN 5 
260 

5190 I3=J+W0N : RX3=LI (133 -WON 
520 0 L AD3=L AD+RX3 i BEGIN3 = USR (FIND , L AD3 
, A3 +RX3 : LAST3 = PEEK(W0NJ +BEGIN3 - WON 
5230 IF LS (BEGIN2, LA5T2XLS (BEGIN3, LAS 
T33 THEN J=NR 

5235 IF L$ (BEGIN2, LAST2* <>LS (BEGIN3, LA 
ST3» THEN 5260 

524 0 STRT3 = USR (FIND , L AD 3 , B J +RX3 : FIN3 = P 
EEK(W0N>+STRT3-W0N 

524 5 STRT2=U5R(FIND,LAD2,BJ+RX2:FIN2=P 
EEK(WON) +5TRT2 - WON 

5250 IF LS (5TRT2, FIN2><=LS (5TRT3, FIN3> 

THEN J=NR 
5260 NEXT J 

529 0 K= ( J1-I2>*5IX :X=U5R(ADR(5HIFTSi,L 
IADR+ (I1W0N>*5IX, LIADR+ (12 - WON) *5IX , K 
J :LKJ13=RX2 + W0N 

5500 NEXT I:POKE 752, ZERO : RETURN 

6000 HDG$ = "SPRINT''DISPLAY LIST" 

6005 PRINT HDGS : POSITION TWO, SIX : PRINT 



IH 

NL 
OP 
MK 
AR 
UR 

XG 

ES 

ET 
NW 
WH 

SJ 



AI 
CY 
HD 
IL 



ZL 
PU 
MQ 
WX 



GT 
CT 



YF 
KU 

TA 

CK 

WB 

XI 
UC 
DZ 

CD 
UA 

CJ 

CB 

L F 
CJ 

WL 
DU 



1 Y 

ES 

DR 



HH 
KC 

US 
MA 



KY 
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"DISPLAY DEUICE?**" 
6010 PRINT "A. SCREEN*" : PRINT "B . PRIN 
TERW":? "C WORD PROCESSOR FILES1":PR1N 
T "D. RETURN TO MAIN MENU" 
6020 GOSUB 20000:ON ANS GOTO 6030,6100 
, 6400, 21020 : GOTO 6005 

6030 MODE = TWO : HDGS = "K)DISPL A Y LIST":GOS 
UB 15000 : 12=ZER0 

6035 FOR I = WON TO NR : IF WI$(I,I>="S" T 
HEN 6090 

6037 POKE 82,SIX:LNE=TW0:I2=I2+W0N:G0S 
UB 20100 

6040 POKE 82, TWO i POSITION TW0,22:PRINT 
"[!Wiri[iOI=FORWARD H@ll[=(l*ill= B A C K Bttr:IBH = MEN 
U"; 

6050 A = PEEK(53279J : IF ( A = 3* + ( A = 5* + ( A = S 
IX>=ZERO THEN 6050 

6060 IF A=3 THEN IF I2=ITEMS THEN 1=1- 

WON : I2=I2-W0N 

6065 IF A=3 THEN 6090 

6070 IF A=5IX THEN I=NR:GOTO 6090 

6080 I2=I2-TW0:IF I2<ZER0 THEN I=ZERO: 

I2=ZER0:G0T0 6090 

6082 FOR Il=I-WON TO WON STEP -WON:IF 
WI$ (II, 111 <>"W" THEN I=Il-WON:Il=WON:G 
OTO 6084 

6083 IF Il=WON THEN I =Z E RO : 12 =ZE RO 

6084 NEXT II 

6090 NEXT I : RETURN 

6100 HDGS = ,, RipRINT LIST":GOSUB 15000:NP 
=INT ( (ITEMS+4J 'FIUE* i PRINT HDGS ; "fflfflfflffl" 
: DEU=WON 

6110 PRINT "THERE ARE ";NP;" PAGES TO 
THIS LISTtfl" 

6115 PRINT "WHICH PAGES ARE TO BE PRIN 

TED?ft)»" 

6117 PRINT "(A '0* ANSWER INDICATES AL 

L P A G E 5 ^ GEBFiftl" 

6120 TRAP 6120:PRINT "FIRST PAGE? ";:I 
NPUT »16, FP : FP=INT (FPJ : IF FP=ZERO THEN 

FP=WON : LP=NP : GOTO 6140 
6125 IF FP<WON OR FP>NP THEN 6120 
6130 TRAP 6130:PRINT "LAST PAGE? ";:IN 
PUT »16,LP:LP=INT(LPi : IF LP=ZERO THEN 
FP=WON : LP=NP 

6135 IF LP<FP OR LP>NP THEN 6130 

6140 PRINT "MMMMftlHHADJUST PAPER, THEN P 

RESS ANY KE Y" GET «TWO,ANS 

6150 TRAP 25000:OPEN »WON , 8 , ZERO , "P : " : 

PFLG=WON : WP=WON : ANS$=" 

6200 K=-WON : PG = ZERO : FOR I = WON TO N R : 1 F 

MIScl,Ii="B" THEN 6350 
6210 K=K+WON: X=K'FIUE : IF INKX*=X THEN 

6220 

6215 IF PG>=FP AND PG<=LP THEN 6325 
6217 GOTO 6350 

6220 PG=PG+WON:IF PG>LP THEN I=NR:GOTO 
6350 

6230 IF PG<FP THEN 6350 

6310 PRINT "^PRINTING ? "PRESS 
ANY KEY TO STOP" 

6315 JJ = 40- (LEN(TITLE$>+14)'TWQ:W$ = " " 
: W$ ( JJ* =W$ : WS (TWO 3 =W$ 

6320 PRINT »WON; WS;TITLES;" " ; YE AR ; " 

pg . "; PG 
6325 RX1=LI (IJ -WON 

6330 PRINT ttUON'.FOR J = WON TO TEN : IF PE 
EK(764J<255 THEN I=NR : J=TEN i POKE 764,2 
55:G0T0 6345 

6340 GOSUB 20400:PRINT «WON ; AN5$ ; : G05U 

B 16000:PRINT »WON;" ";FLD$ 

6345 NEXT J : IF WP THEN IF INT((K+WON*' 

FIUEi = (K+WUNJ 'FIVE THEN FOR J=WON TO T 

EN-PRINT «tWON:NEXT J 

6350 NEXT I:CLOSE **WUN '• RETURN 

6400 HDG$="WPRINT WORD PROCESSOR FILE" 

•GOSUB 15000 

6410 PRINT HDG$:GOSUB 21000:OPEN »WON, 
8, ZERO, W$ : WP=ZERO » PFLG=WON : ANS$="" ' DEU 
= WON 

6420 PRINT »WON; TITLES;" " ; YE AR 
6430 FOR I = WON TO NR J IF WIS (I , H ="H" T 
HEN 6350 
6440 GOTO 6325 

8000 HDG$ = "SlCHANGE LIST TITLE":G05UB 1 
4000 : POSITION TW0,5:PRINT "PRESENT LIS 
T TITLE: " ; TITLES 

8010 PRINT :PRINT "YEAR: ; YE AR ; "EMSfcfi" : 
GOSUB 20020:RETURN 

continued on next page 
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9988 HDGS = "fGRECOUER LIST":PRINT HDGS:P 
OSITION TWO, SIX 

9818 PRINT "WHICH FILE TYPE?(*)81" * PRINT 
"A. EDIT FILES" s PRINT "B . WORD PROCESS 
OR FILE*!" 

9828 PRINT "C . RETURN TO MAIN MENU":GO 
SUB 28888:0N ANS GOTO 9848,9858,28815: 
GOTO 9888 

9848 M$="D:EDITLIST.DAT":PRINT HOGS ■ GO 
TO 2818 

9858 PRINT HDGS : G05UB 21888 » OPEN «WQN, 
4, ZERO, WS «NR=ZERO : L* = ""t LL=UON*TRAP 91 
88 

9868 INPUT »1,FLDS:X=LEN(FLDS> : YEAR=UA 
LCFLD«CX-3,XJ J : TITLES=FLDS (WON , X - 7> i PR 
INT FLDS 

9878 INPUT «WON, FLDS : FOR J = WON TO TEN: 
INPUT ttl,WS:FLDS = WS(8> I X = USR cCHNGR , ADR 
(FLDS> , LEN(FLDS>> 

9875 IF LEN(LS>+LEN(FLDS)+WQN>MAX THEN 
9188 

9888 LScLEN(LS)+NON>=FLDS:NEXT J : NR=NR 
+ WON-LI CNR> =LL : LL = LENCL$J +WON: IF NR< HO 
N THEN 9878 

9188 L$ (LL* ="H" : CLOSE **WQN : RETURN 
14888 POKE 789,TEN:P0KE 718 , ZERO : PRINT 

HDGS : POSITION TEN, TEN 
14818 PRINT "BAILOUT OPTION!!!*":? "IF 

YOU BELONG HERE, PRESS RfllflHHaQI" 
14828 PRINT "FOR THE MAIN MENU, PRESS 
THE SPACE BAR" 

14838 GET »2,ANS:IF ANS = 32 THEN POP :R 
ETURN 

14848 IF ANS0155 THEN PRINT CHRS CANS* 
; ' GOTO 14838 

14858 POKE 769, ZERO : POKE 718 , 198 ■ PRINT 

HDGS : RETURN 
15888 PRINT HDGS : POSITION TMO,SIX:PRIN 
T "HOW MANY ITEMS ARE TO BE SELECTED?* 

gpai 

15818 PRINT "A. ALL ITEMS*" : PRINT "B . 
SOME ITEMS*" : PRINT "C RETURN TO MAIN 
MENU":GOSOB 28888 

15828 ON ANS GOTO 15848 , 15858 , 15838 : GO 
TO 15888 

15838 POP : RETURN 

1584 8 ITEM5=NR:MI$="»" « WIS (NR>=WIS : WIS 
(TWO*=WIS : RETURN 

15858 PRINT HDGS : I-UIJN : GOSUD 28158:A = A 

NS:IF A = TEN + WON THEN RETURN 

15855 LAD=ADR(LS> : PRINT HDGS : POKE 782, 

64 

15868 POSITION TWO , SIX ■ PRINT "SEARCH S 
EQUENCE? " : ? " CUSE •?■ FOR A WILDCARD C 
HARACTER) " 

15865 PRINT "CUSE ALL CAPITAL LETTERS* 
*":INPUT FLDS : IF FLD$="" THEN FLDS=» " 

15878 PRINT HDGS t POSITION 12,8:PRINT " 
SEARCHING POSITION TEN , TEN I PRINT " 

ITEMS FOUND:" 

15188 GOSUB 21288: ITEMS=ZERO 

15118 POKE 752,W0N:F0R I=WON TO NR:RX1 

=LICI5-W0N:P0SITI0N 23,8:PRINT I 

15128 L AD1=L AD+RX1 i BEGIN1 = USR (FIND , LAD 

1, A>+RX1 : LAST1=PEEKCW0N> +BEGIN1-WON: WS 

=LS(BEGIN1,LAST1> 

15125 W$ CWON, WONJ = CHRS cASC (WS cWON, WON* 
* -128> 

15138 X=USR(5RCH, ADR (FLDS) , LEN (FLDS) , A 
DRcW$3 ,LEN(NS>> 

15148 IF X THEN WIS d , I> = '•[*••: ITEMS = ITE 
MS+WON 

15158 POSITION 23,TEN:PRINT IT EMS : NEXT 
I : POKE 752, ZERO : IF ITEMS < > ZERO THEN R 
ETURN 

15168 PRINT HDGS: PRINT "****NO ITEMS F 
OUND ! ! ! BR*" t PRINT "FIELD «*" ; A ; "**" 

15178 PRINT "SEARCH SEQUENCE :": PRINT F 
LDS: POSITION TWO, 28: PRINT -PRESS raSDHIKt 
ffJ" 

15188 INPUT ANS$:POP : RETURN 

16888 PRINT «DEU ; FNAMES c J*5I X - FIUE , J*S 

IX> ; : RETURN 

28888 SOUND ZERO , 125 , TEN , TEN : FOR DELAY 
=WON TO TEN : NEXT DELAY : SOUND ZERO, ZERO 
, ZERO, ZERO : POKE 764,255 

28685 POSITION TW0,21:PRINT "ENTER LET 
TER: ";:INPUT *16,ANSS:IF AN5$ = "" THEN 
28886 



NH 

EB 
YI 

CI 

PJ 

NH 

KJ 

PG 

YC 

FT 

XF 

GC 
UY 
XP 

SG 



IS 
EJ 



PP 
EH 
MZ 



TD 

SM 
OJ 
EH 

NI 
LE 

QD 

DI 
KY 

UT 

XH 

QY 



28618 AN5=A5CCANS$CW0N,W0N>)-64:IF ANS 
<ZERO THEN ANS=ZERO 
26615 RETURN 

28828 PRINT "LIST TITLE? C14 CHAR. MAX 
> ":INPUT TITLES : PRINT 

28638 TRAP 28838:PRINT "YEAR ":INPUT Y 
EAR : TRAP 25866 

28835 IF YEAR<1688 OR YEAR>2186 THEN 2 
6636 

26648 FNAMES=FNAMES(W0N,36> 

28645 FOR 1= YE AR- FIUE TO YE AR- WON * FNAM 

ES CLENCFNAMES>+W0N>=STRS d> : FNAMES (LEN 

(FNAMESJ+WON>= NEXT I : RETURN 

28168 POKE 752, WON : PRINT "M" : P05ITI ON 
TWO, ZERO:? TITLES," ; YE AR ; " ITEM ";I 
2;" OF ";ITEMS:? : RX1=LI (I > - WON 
28118 FOR J=WON TO TEN : POKE 85,ZER0:G0 
SUB 16688 

28115 JJ=J:IF MODE=WON AND J=TEN THEN 
26138 

28116 IF MODE=WON AND J>=SIX THEN JJ=J 
+ WON 

28128 GOSUB 26466:PRINT FLDS 
28138 NEXT J:POKE 752 , ZERO : RETURN 
26156 POSITION TWO , SIX : PRINT "WHICH Fl 
ELD IS TO BE USED FOR LEUEL ••;!;••?*•• 
28166 FOR J = WON TO TEN : PRINT CHRS (64 + J 
>;". "; FNAMES (J*SIX-FIUE, J*SIX-WON* : NE 
XT J 

28165 PRINT "K. RETURN TO MAIN MENU" 
28178 GOSUB 28868 : POSITION TW0,21:PRIN 
T "Q":IF ANS<WON OR ANS > TEN + WON THEN 2 
8178 

28175 IF ANS=TEN+NON THEN POP : RETURN 
28188 RETURN 

26468 LAD1=ADRCLS>+RX1 : BEGIN1=U5R (FIND 
,LAD1,JJ+RX1: L A5T1=PEEK (WONJ +BEGIN1 WO 
N 

28418 FLDS=LSCBEGIN1,LASTD :FLDScWON,W 
ONl=CHRS (ASC(FLDS CWON, WON) J -128* :IF PF 
LG THEN RETURN 

28428 B=LEN(FLDS>+NON:IF B>48 THEN RET 
ORN 

28438 FLDSCB*=" " : FLDS (5IXT Y> =" " : FLDS 
(B+WQN>=FLDS(B> : RETURN 

21868 POSITION 2,6:PRINT "FILENAME?" : P 
RINT "BLANK ENTRY RETURNS TO MAIN MENU 
*": INPUT WS 

21665 IF WS = — THEN POP : RETURN 

21687 FLDS = »D : : IF LEN(WS)>WQN THEN IF 

WS (WON, TWOJ ="D : " THEN RETURN 
21816 FLDSC31=WS:WS=FLDS 
21626 RETURN 

21288 WIS = -W" : WIS (HUN>=WIS : WIS cTWQi =WI 
S : RETURN 

23666 FOR DEL A Y = WON TO 5IXT Y*F1UE : NEXT 

DELAY : RETURN 
2568 6 PRINT HDGS ; ••*****'• :X=PEEK(195> :P 
RINT ERROR ; X : POSITION TWO , TEN-* TEN 
:PRINT "PRESS klNlillllM!" : CLOSE *WON 
25616 POKE 752, ZERO : POKE 82,TW0:TRAP 2 
5666: INPUT tti6;W$:P0P :GOTO 186 
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AY 
AZ 

GD 
EU 

1J 
PR 

WO 

RD 

PY 

TH 
UB 

MY 
KB 
PO 

LW 

OQ 
YC 
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16 REM 
26 REM 

36 REM CO 1985,1988 ANTIC PUBLISHING 
46 REM (LINES 18-258 MAY BE USED WITH 
OTHER BASIC LOADERS IN THIS ISSUE. 
56 REM CHANGE LINE 76 AS NECESSARY.) 
66 DIM FNS (283 , TEMPS (28J , ARS (93> : DPL=P 
EEKC16592) : POKE 18592,255 

78 FNS="D : LINES . L5T" : REM THIS IS THE N 
AME OF THE DISK FILE TO BE CREATED 
86 ? "NICliSk or Cassette?"; : POKE 764,25 
5 

96 IF NOT (PEEK(764>=18 OR PEEK(764>= 
58> THEN 98 

186 IF PEEK(764>=18 THEN FN$="l 
116 POKE 764 , 25b : GRAPHICS 8:? ' 
TIC'5 GENERIC BASIC LOADER" 
128 ? ,"BY CHARLES JACKSON" 
136 POKE 16592, DPL : TRAP 286 
148 ? :? :? "Creating ";FNS:? • 
se stand by." 

156 RESTORE : READ LN : LM = LN : DIM AS (LNi : 

C = l 

166 ARS = ,,,i : READ ARS 

178 FOR X=l TO LEN (ARS) STEP 3 : POKE 75 

ANTIC SOFTWARE LIBRARY 



AN 



Plea 



2,255 PF 
188 LM=LM-1 : POSITION 18.18:? "(Countdo 
wn . . . T- ,B ; INT cLM'10> ; ") 

198 fi$cC,C>=CHR$cUALcARScX,X+2>>> : C = C + NK 
l'NEXT X:GOTO 168 

208 IF PEEKci95)=5 THEN ? :? :? "QTOO 

MANY DATA LINES!":? "CANNOT CREATE FIL OA 

E!":END 

218 IF C<LN + 1 THEN ? :? •'□TOO FEW DATA 

LINES!":? "CANNOT CREATE FILE ! " : END UC 
228 IF FN$="C:" THEN ? :? " Prepare ca 
ssette, press cRETORNi" 

238 OPEN »1,8,0,FN$ DS 

248 POKE 766,1:? »l;A$;:POKE 766,8 

258 CLOSE «1 : GRAPHICS 8:? "■rHLiJ!il[Ull[=in[=<[OB 

00 

1888 D A'f A 421 

1818 DATA 8538488328788738788688618658 

68882 84 88 34184104133081184133088184133 HH 

8831841338 82169001133212160 

1020 DATA 0001322131770000160181980822 

8 881416588 32 8880 8288177888816251132881 RX 

896198883238212288882238213 

1838 DATA 2388882882242388812882288348 

41155854 84 8832 8838 82 867872861865868882 Y M 

848834184184133284184133203 

1848 DATA 1841841332851841332871841332 

861841332 891841332 88169888133212133213 TZ 

165285248863165289288886165 



1858 DATA 2081972051448531688881772832 

818 6324 80 38041127209206240032201065144 

01120109117 6007824185032289 

1060 DATA 2062408171652882888821982891 

98288238286288882238207824144288288196 

285288207230212096034041155 

1070 DATA 0540530320670728788718628618 

6586888284 8834184184133284184133283184 

13328618413328516888817728 3 

1888 DATA 8891281452831652852888821982 

0619820520800516520620800109 6230203208 

0022 30204169127849283056176 

1090 DATA 2280340411550560530320830720 

7307008403604 0087079078041061034104104 

133204104133203104133208104 

1100 DATA 1332071041332131332061041332 

12133205208002198206198205160000162001 

056165203229207133209165204 

1110 DATA 2292080052092400851760272320 

24165203101205133203165204101206133204 

02416528 718128513328 7165288 

1128 DATA 1812868341558568548328838728 

73878084036040055054041061034133208177 

203145207165212208002198213 

1130 DATA 1982122080041652132400382240 

02240014230203208002230204230207208224 

2302082 0 822016 5203208 002198 

1140 DATA 2041982031652072080821982081 

9820720820224 8288896834155 
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;SUPERHOP ACTION! 

; BY DOUGLAS SKRECKY 

;cC)1989, ANTIC PUBLISHING INC 

DEFINE BEGIN="DO",ENDUHILE="OD", 
ENDIF="FI",END="OD" 

MODULE 
CARD ARRAY LINEci92> 

BYTE ARRAY R5H3 (3203 , FILENAME (16) 

BYTE KEY=764,DISPLAY=559,IOTYPE=850, 
SCREEN-SIZE, Rl, R2, Z, MENU KEY, 
CLEAR, LARGER, SMALLER, UP, DO UN , 
LEFT, RIGHT , 5P ACEB AR , LO AD , 5 AUE , 
CREATE, DEMO, DEMOMODE, ON, OFF, PY 

INT CX,CY,X,Y,XX,I,J,IC,JC,X0,Y0 

CARD BUFFER-ADDRE5S=852, COUNT, PX, 
BUFFER— LENGTH=85 6 , SCREEN=88 

PROC INITIALIZE-PLOT o 
GRAPHICS (8 + 16) SETCOLOR c2, 0, 0) 
FOR PY=0 TO 191 BEGIN 

LINE cPYJ =5CREEN + 4 0*PY 
END 

FOR PX=0 TO 319 BEGIN 

R5H3CPX>=PX RSH 3 
END 
RETURN 

PROC PLOT (CARD PX , B YTE PY) 
BYTE POINTER PT 

BYTE ARRAY 0N=cl28 64 32 16 8 4 2 13 
PT=LINECPY> + R5H3CPX* 
PT*"X0NCPXA7> 
RETURN 

PROC CI0 = $E456 cBYTE AREG , X REG) ci 

PROC DISKDIR o 
BYTE ARRAY FILES C20) 
GRAPHICS c8) 

SETCOLOR C2,9,0) SETCOLOR c4, 9,0) 
CLOSE (1) OPEN c 1, "Dl 6, 0) 

PRINT E ( ■•BBBHBBBBBBBI']MMi:<B[«]M[:^[Hkrf(']l:iUBBBBBBBBBBB" ) 

INPUT5DC1, FILES) 
WHILE FILESC16)<>'5 BEGIN 
PRINTF CK5X5", FILES, " ") 

AUGUST 1989 



INPUTSDC1, FILES) 
ENDUHILE 

PRINTF C"XiEXSKSKE M , M ", FILES) 

CLOSE CD 
RETORN 

PROC CHOOSE— FILE o 

BYTE ARRAY TEMP (16) 

PRINT €•' = =>•') 

ZERO (FILENAME ,16) 

FILENAME cl) = • D 

FILENAMEC2)=*1 

FILENAME c3) = • » 

KE Y=CLE AR INPOTScTEMP) 

5A55IGN (FILENAME, TEMP, 4, 16) 
RETURN 

PROC LOAD— FRACTAL o 
DISKDIR C) 

P R I N T E c • • ■■kii^lJI^HM^VHlaMmM :!F:1:m i^Hl iKtHm! >ir:li>]HI ^MlHIllHk^HH ' ' 

CH005E-FILE o 
CLOSE CD 

0 P EN ci, FILENAMES, 0) 

GRAPHICS C8+ 16) SETCOLOR c2, 0,0) 

I0TYPE=7 

BUFFER— ADD R ESS =SC REE N 
BUFFER— LENGTH= 7680 
CIO C8, 16) 
CLOSE CD 
KEY = C L E A R 

DO UNTIL KE Y=LOAD OR KE Y=DEMO OR 

KE Y=CRE ATE OR KE Y=MENUKE Y 
END 

INITIALIZE-PLOT c> 
RETURN 

PROC S AUE— FRACTAL ci 
BYTE ARRAY S AUESCREEN C7680) 
MOUEBLOCKcSAUESCREEN, SCREEN, 7680) 
DISKDIR C) 

P R I N T E c ' •■■H^lLJMBMI^lBldMli^l^lf:)!. MB»i["lllW[:U'JNBI^M[Hii([ill:^«ll ' " 

CHOOSE-FILE o 
CLOSE CD 

OPEN ci, FILENAME, 8, 0) 
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I0TYPE=11 

BUFFER— ADD RE SS=SAUE SCREEN 
BUFFER-LENGTH=?688 

CLOSE CD 

INITIALIZE-PLOT CJ 

MOUEBLOCKCSCREEN, SOU E SCREEN, 7680 J 
RETURN 

; 

PROC MENU c J 
GRAPHICS C6> POKE c?52, 1) 
SETCOLOR c2, 9,8) SETCOLOR c4 , 9 , 8) 

PRINT (••■■■■■■■■■■■■■■■(.li^filflKillilHHIIIIIIIIIIII' 

PUTEo PUTEcj PUTEo PUTEo 
PRINTEc Press Si To Return To THIS (iienu") 
Press (1] To Turn [Denonode On") 
Press [§ To fireate a Fractal") 

Fractal Picture") 
a Fractal Picture") 
To Zoon-out For a Wider Uiew' 
Press Q To Zoon-in Or Magnify") 
Use Cursor Keys To Move Fractal") 
Press Spacebar To Toggle Display") 
PUTEo PUTEo 
BY Douglas Skrecky") 



PRINTE C« 
PRINTEC 
PRINTE Press 01 To (load 
PRINTE t" Press @ To Have 
PRINTEc- Press 
PRINTE c 
PRINTE < 
PRINTEC 
PUTEo PUTEo 
PRINTEC 



KEY=CLEAR 

WHILE KEY-CLEAR OR KE Y=SAUE OR KEY=SP ACEB AR 
BEGIN ENDWHILE 
INITIALIZE-PLOT o 
RETURN 

PROC SETUPO 

CLEAR=255 CREATE=18 DEM0=58 

MENUKE Y=37 LARGER=55 SMALLER=54 

UP-14 D0WN=15 LEFT=6 RIGHT=7 

L0AD=8 SAUE=62 SPACEBAR=33 

0N = 34 0FF = 8 DEnOMODE=OFF 
RETURN 

PROC NEW— PARAMETERS o 
BYTE ATTRACT=77 
ATTRACT=8 

X=8 Y=8 Z=0 C0UNT=8 X8=8 Y8=8 

CX=288+2*RANDc8)+RANDc8) 

CY=288+2*RAND c8)+RANDc8) 

R1=1+RAND C5) R2 = 2 + RAND C4) 

JC=96 IC=168 SCREEN_SIZE=6 
RETURN 
l 

PROC DRftU— F R OCTAL O 
BYTE A1TRRCT=77 
ATTRACT=8 

IF Y>=6 THEN J=JC+ CY RSH SCREEN— SIZE) 

ELSE J=JC- c-Y RSH SCREEN-SIZE) 
ENDIF 

IF X>=0 THEN XX = Y+<CX RSH RU+CXJ 

IF J>8 AND J<191 THEN I=IC+cX RSH SCREEN-SIZE) 



IF I>8 AND K319 THEN PLOT CI;, J) 
ENDIF 
ENDIF 

ELSE XX=Y+cc-X RSH R2) -CX) 
IF J>8 AND J<191 THEN I=IC-c-X RSH SCREEN-SIZE) 
IF I>0 AND K319 THEN PL0Tcl,J) 
ENDIF 
ENDIF 
ENDIF 

Y=CCY-X) Z==+l X=XX 
IF Z=8 THEN Y==-7 
ENDIF 

IF DEHOI10DE = ON THEN COUNT = = + l 

IF CUUNT>1588B THEN KE Y=DEMO 

ENDIF 
ENDIF 
RETURN 

PROC CHANGE— PARAMETERS o 
IF KEY = MENUKEY THEN MENU o INITI ALIZE-PLOT o 
ENDIF 

IF KE Y = SPACEBAR THEN 
IF DISPL A Y=OFF THEN D1SPLAY=0N 

ELSE DISPLAY=OFF 
ENDIF 

KEY=CLEAR RETURN 
ENDIF 

IF KE Y = S AUE THEN SAUE— FRACTAL o RETURN 
ENDIF 

IF KE Y = LO AD THEN LO AD-FRACTAL o NEM— PARAMET ERS c> RETURN 
ENDIF 

IF KEY-DEMU THEN DEMOnODE=ON NEU-P AR AME T ERS o 

ELSE DEtlOMODE = OFF 
ENDIF 

IF KEY = CRE ATE THEN NEH— PARAMETERS o 
ENDIF 

IF KE Y=LARGER AND SCREEN-SIZE > 1 THEN 5CREEN_SIZE== - 1 

IC=2*IC-162 JC=2»JC-96 
ENDIF 

IF KEY=SMALLER AND SCREEN-SIZE < 8 THEN SCREEN_5IZE==+1 

IC= C162 + IO ^2 JC= C96 + JC) ^2 
ENDIF 

IF KE Y=LEFT THEN IC==-18 
ENDIF 

IF KEY=RIGHT THEN IC==*18 
ENDIF 

IF KEY=UP THEN JC==-18 
ENDIF 

IF KEY=D0MN THEN JC==+18 
ENDIF 

ZERO cSCREEN, 7688) 
X=8 Y=8 Z=8 C0UNT=8 
KE Y=CLE AR 
RETURN 

PROC HOPDEMOo 
SETUP o 
MENU o 

NEU-P ARAMETERSO 
BEGIN 

WHILE KE Y=CLE AR DEGIN 

DRAU— FRACTAL o 
ENDHHILE 
CHANGE-PARAMETERS o 
END 
RETURN 
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HI-RES PUT AND GET 
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Don't type the, 
TYPO I! Codes! 



3 REM HIGH RESOLUTION PUT AND GET 

4 REM REUISION 1.1 

5 REM BV BRAD TltltllNS 

6 REM cC)1989, ANTIC PUBLISHING INC 

7 REM ADD ONE TO XMIDTH AND YLENGTH 

8 REM TO CALCULATE STORAGE SPACE IF 

9 REM IMAGE IS TO BE STORED STRING 

18 DIM IMAGE$C182> * X5TART = 11 * Y5TART = 11 
: XHIDTH=18> YLENGTH ~ 18 * H GET = 8 :HPUT=1 : GM 
0DE = 7 i DX = + 1 * DY = + 1 : P = 8 
28 GRAPHICS 7+16 

38 SETCOLOR 4 , 8 , 8 : SETCOLOR 1,3,4:SETC0 
LOR 8.1,12 
48 GOSUB 1888 

58 REM ******DRAW BORDERS******** 

68 COLOR 2:PL0T 0,0:DRAWTO 159,8'DRAUT 

0 159, 95 : DRAWTO 8,95:DRALJT0 8,8 

78 REM ******DRAW BALL****** 

88 C=l:B=2*R=8 

98 FOR 1=8 TO 1 



GP 
KJ 
LR 

EJ 
SJ 



MB 

LX 
UM 
QP 



HD 
RX 
TO 

RW 

WW 



188 FOR X=-R TO R 

118 IF C=l THEN C=2'B=l:G0T0 138 
128 C=l:B=2 
138 Y = SQR CR**R- X*X) 

148 COLOR C:PLOT 20 + X , 28 + Y : DRAWTO 28+X 
,28-Y 

158 COLOR B:PLOT 28 + X , 18 I DRAWTO 28 + X, 2 

2 

168 NEXT X 

178 REM ******5AUE IMAGES****** 

188 HGE T = U5R C1536 , X5T ART , Y5T ART , X WIDTH 

, YLENGTH, ADR CIMAGE$>+P, GMODE, HGET> : P=P 

+91:C=2sNEXT I 
198 P=8 

288 REM ******MOUE BALL****** 

218 IF X5TART=1 OR X5T ART=158 - XWIDTH T 

HEN DX=-DX 

228 IF Y5T ART =1 OR YSTART = 94 - YLENGTH T 



HEN D Y= - D Y 
238 P=P+9l:IF P= 



182 THEN P=( 
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JI 

BJ 

no 

NF 
MZ 
JU 

nu 

MU 



RK 
EW 

BB 

YH 

JD 
MG 
10 
FU 
DY 



248 X5TART=X5TART+DX ■ Y5TART=Y5TART+DY 

250 HPUT = U5R C1536, X5T ART , Y5TART , X WIDTH 

, YLENGTH, ADR CIMAGES) +P , GMODE, HPUT> CD 

268 GOTO 218 

975 REM tt**tttt*M*tt«MttM**»tMMWtttt»*tt*tt»*MM*C ES 

988 REM High resolution PUT and GET 
985 REM Machine language subroutine. 

998 REM ********************************** FC 

995 REN X = U5R C1536, X5TART, YSTART, XWIDT 
H, YLENGTH, IMAGE, GRAPHICS MODE, COMMAND! 

MR 

1888 FOR T=1536 TO 1773:READ A:POKE T, 
A * NEXT T 

1885 FOR T=1821 TO 1143:READ A:POKE T, XZ 
A * NEXT T 
1887 RETURN 

1818 DATA 162,13,104,184,149,212,202,1 NY 
6,250,165,214,201,3,144,4,281,14,144,1 
,96,56 GU 
1028 DATA 165,214,233,3,178,189,79,4,1 
33,231, 189, 98,4, 133,232, 189, 181,4, 133, 
234,165 GJ 
1838 DATA 88,133,283,165,89,133,284,16 
5,212,248, 72,32,253,3,165,228,133,229, 
32,211,6 IK 
1848 DATA 166,234,168,8,177,216,164,22 
9,37,227,248,9,177,283,5,226,145,283,2 
4,144,8 GU 
1856 DATA 165,226,73,255,49,203,145,28 
3,78,226,288,3,32,197,6,78,227,288,3,3 LF 
2,282 

1868 DATA 6,282,288,212,198,235,288,28 DZ 



6,198,236,248,282,32,224,6,198,218,288 
, 188, 96, 32 

1878 DATA 253,3,165,228,133,229,32,211 
,6,166,234,164,229,177,283,168,8, 37,22 
6,248,9 

1888 DATA 177,216,5,227,145,216,24,144 
,8,165,227,73,255,49,216,145,216,78,22 
6,288, 3 

1898 DATA 32,197,6,78,227,288,3,32,282 
,6,282,288,212, 198,235,288,286, 198,236 
,248,282 

1188 DATA 32,224,6,198,218,288,188,96, 
182,226,238,229, 96, 182,227,238,216,268 
,2,238,217 

1118 DATA 96,165,226,133,235,165,221,1 
33,236, 165,233, 133,226, 96,24, 165,283, 1 
81,232,133,263 

1126 DATA 165,284,185,8,133,284,96,169 
, 8, 133,228, 56, 165,224,229,231, 144 
1138 DATA 6,133,224,238,228,288,243,16 
4,225,248,8,133,224,198,225,236,228,20 
8,231,165,224 

1148 DATA 133,233,165,234,261,1,248,8, 
164,234, 6,233, 136, 136,288,258,166,233, 
189, 112,4 

1156 DATA 133,226,133,233,169,128,133, 
227,166,222,262,224,255,248, 6, 32,224, 6 
,24,144,245 

1168 DATA 236,218,236,226,288,2,238,22 

1,96,4,8,4,8,4,8,2,2,2,8,4,16 

1178 DATA 16,20,20,40,40,40,40,40,20,4 

0,2,1,2,1,2,1,4,4,4,1,2 

1186 DATA 128,64,32,16,8,4,2,1 
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LISTING 1 



Don't type the 
TYPO II Codes! 



HE 
ML 
01. 
fcU 
OF 
ZC 

NH 
Cfc 
DF 
KO 
WU 
II 
EJ 
NO 
WJ 
LD 
AX 
ZR 
EQ 
NU 

DM 
HM 
LP 
AN 

MC 
PJ 
UL 
UZ 

MP 
UP 

CZ 
CU 

in 



0 GOTO 31568 

31500 REM U ARI ABLE RENAMING UTILITY 

31501 REM BY DOUG WHITE 

31502 REM CC'1989 ANTIC PUBLISHING INC 

31504 ? POSITION 2,2 

31505 ? " U ARI ABLE RENAMING UTILITY 



31506 

31507 

31508 

31510 

31512 

31514 

31516 

31518 

31528 

31522 

31524 

31526 

31528 

31536 

: GOTO 

31532 

31534 

31536 

31538 

RI ABLE 

31540 

31542 

31544 

31546 

31548 
31556 
ES 

31552 
31554 
31556 



BY DOUG WHITE' 



CLR 

DIM UARNAMES €2868* ,NAMESC128> 
DIM YNSCH 

UNT=PEEKC138J+256*PEEKC13U 
N=l : FLAG=6 

REM . . . GET NEXT U ARI ABLE NAME 

BYTE=PEEKCUNT> 

NAME 5 CN,N> = CHRS c BYTE J 

REM . . 8 INDICATES END OF TABLE 

IF B YTE=8 THEN 31682 

REM ... CHECK FOR INUERSE CHAR. 

IF BYTE<128 THEN UNT=UNT+1 : N=N+1 

31528 

NAMES cN,N>=CHRS cBYTE-128* 

IF NAME$="UARNAMES" THEN 31682 

? :? NAME$ i ? 

? "DO YOU WANT TO CHANGE THIS UA 

NAME CY'N> "; 
INPUT YNS 

IF YNS=»Y" THEN 31558 

REM . . . PUT OLD NAME IN UNAMES 

NLEN=LEN<NAME$) : ULEN=LEN CU ARN AME 

NAME S CN,N>=CHR$ cBYTE* 

U ARN AME$ cULEN + 1 , ULEN + l + NLENi =NAM 



UNT=UNT+1 *N 
GOTO 31526 
REM 



= 1 : NAMES=* 



RE 
II F 
OC 



UT 

BU 
JZ 

KH 
MC 
FM 
EQ 

OC 

LF 
GN 
NM 
KK 
FB 
OP 

BH 

CZ 

EJ 
WI 
BY 
RB 

CS 
MD 
LO 
AE 



31558 FLAG=1 i 
31568 NAMES=' 
31562 ? :? " 

:? 

31564 ? ' 
ING NAME* 
31566 ? "0 
31568 ? "T 
RAY NAME" 
31578 ? "E 



REM 



DENOTES A CHANGE 



INPUT NEW U ARI ABLE NAME" 
•N THE LAST CHARACTER OF A STR 



MUST BE ■•»•' 

THE LAST CHARACTER OF AN AR 

i f! | 9 



31586 
31582 
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MUST BE • 
31572 INPUT NAMES 
31574 NLEN=LENCNAMES> 

31576 IF BYTE=164 AND NAMES cNLEN, NLEN> 
<>"$" THEN 31558 

31578 IF BYTE=168 AND NAMES CNLEN , NLENi 
<>"C" THEN 31558 

? :? NAMES:? 

? "IS THIS CORRECT < Y'N* M i 
31564 INPUT YNS 
31586 IF YNS=»N" THEN 31558 
31588 REM • . . PUT NEW NAME IN UN AME S 
31598 NLEN=LEN cNAMESi : ULEN=LEN tU ARNAME 
S> 

315 92 NAMES cNLEN, NLEN> =CHRS cASC cNAME* c 
NLEN, NLEN>> +128* 

31594 U ARN AMES cULEN+1 , ULEN+1 +NLEN* =NAM 

ES 

31596 UNT=UNT+1 :N=1 :NAMES=" " 

31598 GOTO 31528:REM ..GET NEXT NAME 

31688 REM 

31662 IF FL AG=8 THEN ? "NO CHANGES MAD 
E" : END 
31684 REM 

31686 REM . , . STORE OLD POINTERS 
31688 UNT=PEEKC138J 
31618 UNT1=PEEKC131» 

continued on next page 
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31612 UNT2=PEEKC1323 

31614 UNT3 = PEEKC133:> 

31616 TRAP 31698 

31618 ULEN=LENcUARNAME$> 

31628 U A UNA M£S cULEN + 1 , ULEN + l* = CHR$ c0> 

31622 REM . . . MAKE UNTP & UNTD 

31624 REM . . . POINT TO UN AMI. 5 

31626 UNADR=ADR CUARNAME^J 

31628 HIBYTE=1NT cUNADR'256> 

31630 L0WBYTE=UNADR-256*HIBYTE 

31632 REM ... POKE HI BYT E & LOWBY'f E 

31634 REM . . . INTO UNTP 

31636 POKE 130, LOWBYTE : POKE 131,HIBYTE 

31638 UNEND=UNADR+LENCUARNAME$) 

31648 HIBYTE = INT cUNEND'256:> 

31642 L0UBYTE=UNEND-256*HIBYTE 

31644 REM ... POKE HIBYTE & L OMB Y T E 

31646 REM . . . INTO UNTD 

31648 POKE 132, LOUBYTE : POKE 133, HIBYTE 



31650 REM 
31652 ? "Rl 



31654 
LL" 

31656 ? 
MODIFIED 
31658 ? "PROGRAM. 
D FOR YOU* 
31660 



POSITION 2,2 
INPUT THE NAME OF THE DISK FI 



THAI YOU WANT TO USE FOR THE 



. LSI ' MILL BE ADDE 



D : FILENAME' 



AND LEN CNAME5) 
AND LENCNAME$> 



? EXAMPLE: 

31662 NAME$="" 

31664 INPUT NAMES 

31666 IF LENCNAME$>=0 THEN 31652 

31668 IF NAME$C2,2>=* 
<11 THEN 31678 

31670 IF NAME$c3,3>=' 
<12 THEN 31678 

31672 ? :? "THE NAME YOU CHOSE IS TOO 
LONG" 

31674 ? "PLEASE INPUT A SHORTER NAME" 

31676 GOTO 31660 

31678 NAMES cLEN cNAMES) +1) =" . L5T" 

31680 LIST NAMES, 1,31499 

31682 GRAPHICS 0 ■ POSITION 2,4 

31684 ? "ENTER "; CHRS C34) ; NAMES ; CHRS c3 

4> 

31686 POSITION 2,1 

316 8 8 ? "■rdmi§@^K1»iili]fi^U" 

31690 NEW 

31692 END 

31694 REM ... ERROR TRAP ROUTINE 

31696 REM ... RESTORE OLD POINTERS 

31698 ? :? Ba HI[a)mrQH[^r:HM[r^MH[:H=4^ilii[ilL^I^[0H a - 



T K 
ED 
FU 
HI. 
Z I 



31700 POKE 130, UNT 

31702 POKE 131,UNT1 

31704 POKE 132,UNT2 

31706 POKE 133,UNT3 

31708 END 



LISTING 2 



BL 
JK 
LB 

TL 
LR 
OJ 
UC 

HM 
Q A 
HM 

TT 
NX 
HR 
BX 
EF 
QU 
MB 
KG 
ZH 
JB 
QY 
UZ 
EB 
RE 
BF 
FU 
MD 
NL 
H T 
AN 
GO 
JX 
IG 
RB 
PS 
HU 
OA 
RI 
UJ 
UZ 
FC 



40 

50 
c < 



80 
ED 



10 REM SHELL SORT 

15 REM BY DOUG UHITE 

17 REM CCJ1989 ANTIC PUBLISHING INC . 
20 DIM AC1000> 
30 GRAPHICS 0 

? " SHELL SORT" 

? :? "HOU MANY «'S ARE YOU SORTING 
1000* " 
60 INPUT NUM 
70 IF NUM>1000 THEN 50 

? :? "FILLING THE ARRAY UITH UNSORT 
n • S" 

90 FOR N = l TU NUM 

100 ACN*=1NTC18000*SINCN:>> 

110 NEXT N 

120 ? :? " *** SORTING 

130 POKE 18,0:POKE 19,0:POKE 20,0 

140 REM 

500 REM BEGINNING OF SHELL SORT 

510 PSIZE=1 

528 PSIZE=PSIZE*3+1 

530 IF P5IZE<NUM THEN 520 

540 REM 

550 PSIZE=INT CP5IZE'3> 

560 ? "PARTITION SIZE = ",P51ZE 

570 REM 

580 FOR N=1+PSIZE TO NUM 
590 TEMP=ACN1 
600 K=N~P5IZE 

610 FOR J=K TO 1 STEP -P5IZE 

620 IF TEMP<ACJ> THEN 658 

630 ACJ+PSIZEJ=ACJ1 

640 NEXT J 

650 ACJ+PSIZE)=TEMP 

660 NEXT N 

670 IF PSIZE>1 THEN 550 

680 REM END OF SHELL SORT 

1000 REM 

1010 T=PEEKC20*+256*PEEKC19> 
1020 SOUND 3,100,10,2 

1030 FOR N = l TO NUM:? N , A cN> : NE XT N 
1040 ? :? T'60;" SECONDS " 
1050 END 



THE GREAT PASTA SAUCE CHASE . . . DONT ASK! 



GOOD KING ZURP 



Article on page 17 



LISTING 1 



Don't type the 
TYPO II Codes! 



XZ 
GN 
FF 
DU 

PU 

PC 

XM 

AF 

XB 

UP 

40 



0 REM GOOD KING ZURP 

1 REM BY FRANK MARTONE 

2 REM cc>1989, ANTIC PUBLISHING INC 

3 DIM F$ €13) : GRAPHICS 1?:P0KE 708,15:S 
N=0:POSITION 3,10 

4 ? «6; "ANTIC PRESENTS" : GOSUB 1000:GOS 
UB 3000:GOSUB 400 

5 GRAPHICS 17 : TUM=9 : SC=0 : BR5=30 : DIFF=4 
00 : 51 = 19 : S2 = 20 : CTT = 0 : BI = 5 : 53 = 1 : 54 = 23 

6 POKE 756, CH'256 : S5=0 : 56=3 : EG=10 : GOB= 

7 : SCR=PEEKc88>+2S6*PEEKc89* 

7 GOSUB lllll:POKE 711,255:P0KE 708,13 
8 

8 FOR G = 2 TO 7 : POSITION 0,G:? **6 ; "GOOD 
ODDDDGDDDODDDDOD" : SOUND 0,G+6,10,7~G:N 
EXT G 

9 FOR G=8 TO 22 : POSITION 
BuiiB bh bb yy tB yB EU Btl BB B8 BB cy SB yo HU HB " 

ND 0,0,0,0:NEXT G 



l,G:? «6;"BBBBB 
SOUND 0, G, 10, 10 : SOU 



5J 
ZM 
FM 
JO 
CV 

ZE 
TK 

XL 
QK 



11 FOR B=l TO BR5 : K1=INT CRND C03W191 : K2 
= INTCRNDC0>«26>+3:POSITION Kl , K2 

12 ? «6 ; "[?]" : SOUND 0 , 20 , 10 , 10 : FOR HJ = 0 
TO l.-NEXT HJ:SOUND 0,0,0,0:NEXT B 

13 FOR T = l TO EG:E1 = INTCRNDC03*19:> :E2 = 
INTCRNDC0JM203+3:PO5ITION E1,E2 

14 ? tt6; ";": SOUND 0 , 120 , 10 , 10 : FOR HJ = 1 
TO 3:NEXT H J : SOUND 0,0,0,0:NEXT T 

15 FOR C=l TO GOB : POSITION RNDC0J*18,R 
ND c0)*18+3 : ? »6; "j" : SOUND 0,C,10,10:SO 
UND 0,0,0,0:NEXT C 

16 X=10 : Y=12 : U=10 : TIME=0 : FOR G=10 TO 1 
3:P0SITI0N 9,G:? »6 ; " " : NEXT G 

17 POKE SCR+X+20*Y, 10 : FOR G = l TO 80:50 
UND 0,G*2,0,10:NEXT G:5UUND 0,0,0,0:PO 
SITION 16,1:? «6; "+" : TIME=30 

18 position 0,0:? «6 ; "snraraPHnnnmrnnnn 

EBB" : COLOR 32:PL0T X,Y 

20 POSITION 9,1:? u& ; INT cTIME* ; " ";:G0 

ANTIC SOFTWARE LIBRARY 



1,1 J? «6; 5C : POSITION 17,1: 
Y, BC 



SUB 4160 

21 ST=PEEKt632> : T R=PEEK C644> :TP=5CR+X+ 
20*Y:POKE 709, 14 : POKE 77,0 
2b IF HME<11 THEN SOUND 1 , TIME+30 , 10 , 
10 

31 POSITION 
? »6;TUM 

32 LOCATE X, 

33 IF BC = 35 THEN FOR G = l TO 4:F0R R=-l 
5 TO 15 STEP 3:S0UND 0 , ABS cR3 +35 , 10 , 10 
J NEXT R : NEXT G : SC = S 

35 SOUND l,0,0,0:TIME=TIME-0.5:U=U+l:I 
F TIhE<l THEN 7000 

47 IF BC=247 THEN FOR U = 15 TO 0 STEP - 
2:50UND 0 , 30 , 1 0 , U : NEXT W:5C=5C+100 

48 IF BC = 59 THEN FOR U = 15 TO 0 STEP -2 
:SOUND 0,14*8, 10, 14:NEXT U:5C=5C+250 

49 IF BC=106 THEN FOR M=70 1 0 60 STEP 
-2:50UND 0 , RND C0> *5 + 3 , 10 , 8 : NEXT U:SC=S 
C + 500 

50 POKE 5CR+X+20*Y, U : IF BC = 40 THEN GOS 
UB 300 

51 POKE 709,0:IF X>18 THEN POKE SCR+X+ 
20*Y, 0 : X=X-1 

52 IF X<1 THEN POKE SCR+X+20*Y , 0 : X = X + 1 

53 IF Y<3 THEN POKE SCR+X+20*Y , 0 i Y = Y + 1 

54 IF Y>22 THEN POKE SCR + X + 20*Y , 0 : Y = Y - 
1 

55 IF RNDC0>*6<4 THEN GOSUB 500 

57 IF RNDC0J*5<2 AND SO15000 THEN GOS 
UB 550 

58 IF RNDC0>*4<2 AND SO29000 THEN GOS 



0,0:IF BC = 45 THEN GOSUB 9 



UB 580 

60 SOUND 0,0, 
0 

61 IF X = S1 AND Y=S2 THEN GOSUB 300 

62 IF X=S3 AND Y = S4 THEN GOSUB 300 

63 IF X=S5 AND Y=S6 THEN GOSUB 300 

64 IF SO60000 THEN POKE 710 , PEEK C5377 
01 

65 IF SO39000 AND PEEK c53778> =44 THEN 
GOSUB 100 

66 IF SO100000 THEN POKE 710,0'FOR D = 
1 TO 1 : NEXT D 

80 IF U>11 THEN U=10 

81 POKE 709,0:POKE 709,14:IF RNDC01*DI 
FF<13 THEN POSITION RND C0J *1 9 , RND C0 J *1 
8 + 3:? »6 SOUND 0,255,10,5 

82 GUTO 20 

90 FOR R = l TO 4:P0SITI0N X,Y-? t*6l"-"s 
FOR D=l TO 10:NEXT D:SOUND 0,255,10,10 

91 POSITION X,Y:? «6 ; »' " : FOR D = l TO 10 
: NEXT D:SOUND 0,0,0,0:NEXT R:GUSUU 300 
94 RETURN 

100 POSITION RNDc0)*19,RNDc0J*i8+4:? « 

6; 

101 FOR R=2 TO 20:SOUND 0 , R*4 , 1 0 , 1 0 : 5 0 
UND 1,R*8,10,10:POKE 712 , R*5 : SOUND 2,R 
,10,10:POKE 712,R:NEXT R 

102 POKE 712, 0 < FOR T = 0 TO 
0,0:NEX1 T : RETURN 

300 POSITION X,Y:? »6 ;•• + ••: FOR G = 14 TO 

1 STEP -l:FOR M=l TO 25-NEXT U:POKE 70 
8, 64+G 

301 SOUND 0, G, 10, G : SOUND 1 , G + 2 , 10 , G I NE 
XT G:POKE 708 , 206 : SOUND 0 , 0 , 0 , 0 ■ SOUND 
1,0,0,0 

302 FOR EX=4 TO 6'POKE SCR + X + 20**Y , EX : F 
OR U=l TO 30:NEXT U:SOUND 0,EX«4,10,10 
: NEXT EX:POKE SCR + X + 20**Y , 0 » X = 10 : Y = 12 

303 FOR S=0 TO 2:S0UND S,0,0,0:NEXT 5 

304 TUM=TUM-1 

305 IF TUM=0 THEN GOTO 5000 

306 FOR L=15 TO 1 STEP 
6,L:S0UND 2,L,6,L:NEXT L 

310 FOR R=0 TO 2:SOUND R,0,0,0:NEXT R 

311 POSITION SI, 52:? «6 ; •• '^POSITION 5 
3,54:? »6;" '^POSITION 55,56:? «6 ; •• M 

312 51 = 3 : 52 = 19 : 53 = 18 : 54 = 19 : 55 = 3 « 56 = 3 ■ P 
OKE 708,138 

320 RETURN 

400 GRAPHICS 17:P0KE 711 , 137 : Sl = 19 i 52 = 
18 : 53 = 2 : 54 = 18 : 55 = 0 t 56 = 5 : POKE 756, CH^25 
6:P0KE 709,14 

405 DL = PEEKC560>+256**PEEKC5613 : POKE DL 
+13,7:P0KE DL+15,7 

409 POSITION 3,7:? »6;"J J J J J J J J 



3:S0UND T,0, 



0.3:SOUND 1,L, 



LY 

KD 
QO 

LZ 
OQ 

FQ 

MK 

ZL 

XU 

TT 
IK 
UT 
RH 
FT 
YF 
MU 
XG 
UN 
XX 
UP 
EX 
CL 
RC 
EK 
BR 
AX 
CX 
YK 

HN 

SX 
XD 

XD 

KC 

UM 

5C 
KM 
JU 
JL 

FM 
UL 
RT 
UA 

DM 
XK 
MT 

LJ 
DQ 
KF 

T A 

KU 
MF 

YU 
HD 
NQ 

UN 

AU 
UM 
IU 

PZ 

TU 



HF 

BR 

5L 
01 
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410 POSITION 3,8:? St 6 ; "BmRBrifimH SBtlSSffl 
: SN = 5N + 1 

411 POSITION 10,10:? t*6;SN 

412 POSITION 3,11:? «6;"j J J J J J J 

417 FOR G=l TO 2 

420 FOR D=15 TO 0 STEP l:SOUND 0,34,1 
0,D:POKE 708,D:NEXT D : NEXT G : RETURN 
500 SNK=5CR+S1+20*S2 : 5U=58 

510 POKE SNK,0:SOUND 0,20,6,5 

521 IF Y<52 AND X=51 THEN 52=52-l:G0T0 
529 

522 IF Y>52 AND X=51 THEN S2=52+1:G0T0 
529 

525 IF X<51 THEN SI =S1 - 1 ■ 5U=58 

526 IF X>51 THEN 51=51+1:5U=7 
529 POKE SCR+S1+20*52,5U:RETURN 
550 SNKl=SCR+S3+20*54 : 5U=58 
555 POKE SNK1,0:SOUND 0,10,6,5 

557 IF X<53 THEN 53 = 53 - 1 : 5U = 58 

558 IF X>53 THEN 53=53+1 i 5U=7 

559 IF Y<54 AND X=53 THEN 54=S4-1 

560 IF Y>S4 AND X=53 THEN S4=54+l 

561 POKE SCR+S3+20*S4, SU : RETURN 
580 SNK2=SCR+S5+20*S6 : 5U=58 
585 POKE SNK2,0:SOUND 0,3,6,5 

587 IF X<55 THEN 55=55 - 1 : 5U=58 

588 IF X>55 THEN 55=55+1 « 5U=7 

589 IF Y<56 AND X=55 THEN 56=56-1 

590 IF Y>56 AND X=55 THEN 56=56+1 

591 POKE 5CR+S5+20*56, SU i RETURN 
1000 REM --CHARACTER 5ET~- 

1010 CH= CPEEKC106J -8J**256 : FOR 1 = 0 TO 5 
12:P0KE CH+I, PEEKC57344+U :NEXT I 
1020 RESTORE 1100 

1030 READ A:IF A<0 THEN RETURN 

1040 FOR J=0 TO 7 : RE AD B : POKE CH+A*8+J 

, B : NEXT J:GOTO 1030 

1100 DATA 10,0,189,126,235,255,255,126 
, 36 

1110 DATA 11,0,36,126,255,106,255,126, 
60 

1115 DATA 12,0,60,126,126,255,106,126, 
189 

1120 DATA 4,0,0,4,0,16,8,64,0 

1125 DATA 5,1,66,0,34,8,64,20,128 

1130 DATA 6,0,0,4,80,8,20,0,0 

1140 DATA 2,255,253,239,247,255,191,25 

1, 191 

1143 DATA 58,48,88,56,8,18,34,36,24 
1146 DATA 55,0,15,31,62,124,120,112,0 

1149 DATA 63,7,5,7,56,40,184,128,128 

1150 DATA 42,56,84,146,254,170,84,40,1 
6 

1170 DATA 3,146,84,16,238,16,84,146,0 

1175 DATA 26,0,0,0,0,0,0,1,3 

1176 DATA 27,0,126,255,171,171,255,255 
, 0 

1177 DATA 28,0,0,0,0,0,0,128,192 

1178 DATA 29,7,7,7,15,15,15,15,7 

1179 DATA 30,255,156,8,8,207,8,156,255 

1180 DATA 31,224,224,112,112,112,112,2 
40,224 

1181 DATA 32,7,3,7,24,48,24,4,0 

1182 DATA 61,189,195,255,126,60,24,24, 
0 

1183 DATA 62,224,192,224,24,12,24,32,0 

1184 DATA 49,0,0,0,255,0,255,0,0 

1190 DATA 8,170,77,170,77,170,77,170,7 
7 

1191 DATA 13,254,170,170,170,170,170,1 
70,254 

1192 DATA 7,6,13,14,8,68,66,34,28 

1193 DATA 8,3,192,12,0,51,0,6,96,-1 
3000 GRAPHICS 17:P0KE 756 , CH'256 i POKE 
708,75:POKE 711,15:P0KE 709,11 

3003 POKE 710, 255:P05ITI0N 4,7:? «6 ; j 

3026 J P05ITI0N 9,9:? St 6 ; "HUH" : POSITION 
9,10:? St6 ; "BHH" '• POSITION 9,11:? »6;"oi 

3040 COLOR 81:PL0T 0,22:DRAUTO 19,22:P 
LOT 0,3:DRAUTO 19,3 

3041 L=0 . 2 : POSITION 0,3:? «6 ; "QQQQQQQQ 
QQQQQQQQQQQQ" 

3099 RESTORE 3200 : R=4 

3100 READ F$:IF F$="X" THEN GOTO 3500 

continued on next page 
41 



3181 POSITION R,7:? «6 ; »x» : FO R D = 15 TO 
0 STEP -1.3:S00ND 8 , D + 1 9 , 8 , D : NE X T D 

3182 POSITION R , 7 : ? US ; F $ ; 
3185 R=R+l:GOTO 3188 

3288 DATA G , 0 , 0 , D , J , K , I , N , G , J , Z , U , R , P , 



3588 POSITION 2 



NEXT G:50UN 



ramnm 



3 : PLO 



? «6 ; "SEASONINGS 
? **6;"GARLIC 



H 



? »6;"SPEC PASTA « 
? **6;"AU0ID COLLAND 



1,19:? »6;"AU0ID MAGGOTS 



16 : ? **6; ' 
:SOUND 8, 8, 8, 8 t SOOND 1,8,8,8 
3583 FOR G = l TO 188:F0R J = 15 TO 8 : SOON 
D 8, J*2,8,R:S00ND 1,J*3,8,J 
3585 POKE 789, J+188 :NEXT J: 
D 8,8,8,0: SOOND 1,0,0,0 

4000 GRAPHICS 17:P0KE 756 , CH' 256 : POKE 
708,14:POKE 710,55:POKE 709,255 

4001 P=5 : CC=0 : POSITION 4,2:? »6 ; • 

4002 COLOR 8l:PL0T 0,3:DRAUTO 19, 
T 0,22:DRAUTO 19,22 

4004 POSITION 1,P:? «6;"PASTA PKT 
188":G0SUB 4900 

4005 POSITION 1,P: 
258":G0SUB 4900 

4006 POSITION l,Ps 
588":G0SUB 4900 

4007 POSITION 1,P! 
5000":GO5OB 4900 

4008 POSITION 1,17= 
ERS B" 

4009 POSITION 
R ■ 

4010 POSITION 5,21:? 
FOR D=l TO 50:NEXT D 

4011 POSITION 5,21:? 
FOR D=l TO 50:NEXT D 
THEN GOTO 3000 
4015 IF PEEKC53279»=6 THEN GOTO 5 
4020 GOTO 4010 

4100 POKE TP, 0 : X=X+ CST<81 - C5T>8 AND ST 
<12> : Y=Y+ <5T=13> - cST=14> : RETURN 
4900 FOR D=15 TO 0 STEP -l'SOUND 
10,D:NEXT D : P=P+3 : RETURN 
5000 POSITION 17,1:? »6;"8' 
0 0 STEP -l:POKE 718,64+E 
5881 FOR R=l TO 18:NEXT R: 
18:NEXT E:SC=8:SN=0 
5885 FOR D = 7 TO 12:P0SITI0N 5,Di 
"-■NEXT D 

58ie position 6,8:? »6 ; "mmmraBmnrari" 

5858 FOR L=28 TO 70:SOUND 8,L,18,18:S0 
UNO 1,L,6,18:NEXT L 
5861 SOUND 8, 8, 8, 8 : SOUND 1, 
5865 C=C+1 : POSITION 5,18:? »6;' 
TART":C=C+1 

5876 IF C = 28 THEN FOR 1=19 TO 8 STEP - 
l:COLOR 0:PLOT I,8:DRAMT0 I,23:F0R D=l 

TO 5:NEXT D : NEXT I : GOTO 3800 
5888 IF PEEKC53279J=6 THEN 5N=8:GQT0 5 

6888 GOTO 5865 

7888 COLOR 176:PL0T 9,1:C0L0R 42 : PLOT 
X , Y 

7881 SOUND 8, 255, 10, 18 : SOUND 1,254,18, 
18:F0R L=l TO 58:P0KE 718 , PEEK C53776* : 
NEXT L 

7882 RESTORE 7188 

7885 READ MU5IC:IF MUS1C=2S5 THEN 7128 

7818 SOUND 8,MUSIC,18,18:F0R G=7 TO 1 
STEP -1.5:50UND 1 , MUSIC , 18 , G+4 
7825 NEXT G:POKE 712 , MUSIC » POKE 718, PE 
EKC53778* i GOTO 7885 

7188 DATA 121,1,121,121,96,114,121,96, 
96, 1, 96, 96, 81, 91, 96, 91, 91, 1,91, 91, 76, 8 
1, 91, 96, 96, 114, 114, 121, 121, 121, 2 55 
7128 SOUND 8, 8, 8, 8 : SOUND 1,8,0,0:POKE 
712,8:F0R 1=8 TO 19:C0L0R 8 
7122 PLOT I,8:DRAUT0 I,23:F0R D = l TO 5 
: NEXT D : NEXT 1 

7281 IF DIFF<118 THEN DIFF=128 

7282 CTT=CTT+1 

7284 IF CTT=3 THEN 9888 

728 7 EG=EG+7 : UB=UB+8 .S:DIFF=DIFF-27:G0 
SUB 488:BR5=BRS+1 

7218 GRAPHICS 17:P0KE 756 , CH' 256 : POKE 
718, PEEK C53778* : POKE 788, 138 : GOO-GOB +7 
:GOTO 7 

9888 GRAPHICS 17:P0KE 718,14:P0KE 756, 

ch^256 • position 5,6:? «6 ; "rarammsBiimmmm" 

: CTT = 8 

9881 POSITION 3,18:? »6; '^[ilOlBiMflgDHmblBim 

3" 



«6;"PRES5 START": 

**6;"press start": 
CC=CC+l:IF CC=38 



8,58, 
:FOR E=14 T 
SOUND 8,E,8, 



! ? »6 ; 



8,8,8: C=8 
'PRESS 



NM 

BO 
RC 

MN 

UL 

LW 

KI 

PT 
GM 
DY 

DO 

UC 

OU 
AD 

Nl 

SU 

XU 

OU 

BY 
LU 



cu 

RU 

JP 



KJ 
YB 



TK 
II 
KF 

UN 

SN 



SP 
YT 
CK 

LA 

QT 
YH 

OY 
DZ 

SD 

UU 

PI 
KD 
UX 

SG 

LG 

RC 

ID 

UN 



9882 POSITION 3,12:? »6;" BHGraOGIHWraHBnr-l 

9803 POSITION 4,14:? «6 ; "UmBraaUBtOHMriH" 

9804 COLOR 33:PL0T 8,16:DRAMT0 19,16:P 
LOr 0,4:DRAUTO 19,4 

9006 FOR D=l TO 140:POKE 7 0 8 , RND c 0 i *1 0 
+50:NEXT D 

9010 GRAPHICS 17:G0SUB 11111 : POKE 756, 

ch/256 : position 5,0:? «6 ; "mmmmsBremmmm" 

: X = 10 : Y = 10 : POKE 708,156 

9011 POSITION 0,22:? «6 ; "ElHElHElBHHBimElHBI 
EnmmElEnm[n":TIME = 0:T=10:IF 5O30000 THEN 
7=6 : 51=4 : S2=16 

9012 POSITION 0,3:? «6 ; "ElBElEimClHBElHmBElEl 
BBBBBB" : IF 5O70000 THEN T = 3 

9013 POSITION 5,23:? »6;"AU01D TRAPS" 

9014 FOR K=5 TO 21 STEP 3 

9015 POSITION 3,K:? «6 ; " - 
■ i 

9017 NEXT K:SCR=PEEKC88)+256*PEEKC89J : 
BS = 8 

9858 TP = 5CR + X + 28»*Y : ST = PEEKC632J : POKE 7 
18, 14 

9851 IF X=51 AND Y=S2 THEN 9788 

9853 IF 5O58808 AND RNDc8>*9<5 THEN G 

05UB 588 

9855 GOSUB 4180:IF X>18 THEN POKE 5CR+ 
X+28*Y, 8 : X=X~1 

9868 IF X<1 THEN POKE SCR+X+28*Y , 8 : X=X 
+ 1 

9861 IF Y<5 THEN POKE SCR+X+28*Y , 8 : Y=Y 
+ 1 

9062 IF Y>28 THEN POKE SCR+X+28^Y , 0 : Y= 
Y-l 

9863 SOUND 8,8,8,8:IF 
9878 POKE TP,ll:FOR D= 



B5=3 THEN 9288 
1 TO 8:NEXT D : LO 



CATE X, Y, BC : POSITION 7,2:? «6;"C0UNT 
; BS 

9875 IF BC=45 THEN 9788 
9888 POKE TP,8:P0KE 718 , PEEK C53778* 
9188 IF 7IME=8 THEN Tl =INT cRND c8> *15J + 
3 : T2 = INT cRND c8 J ^153 +4 : POSIT ION Tl, T2 : ? 

«6 ; "ED" 

9183 TIME = TIME + 1 : IF TIME > T THEN POSITI 

ON T1,T2:? «6 ; FOR D = 18 TO 8 STEP - 

l:SOUND 8,18,10,D:NEXT D:TIME=0 

9107 IF BC=163 THEN FOR D=l TO 10:SOUN 

D 0, D+2, 8, 6 : POKE 712 , D*3 : NE X T D:B5=BS+ 

l:SOUND 8,8,8,0:POKE 712,8 

9158 GOTO 9858 

9288 REM 

9248 POSITION 3,23:? **6; "CONGRATULATIO 
NS" 

9241 POSITION 5,2:? **6 ; "rBmNmofilBBf?lnl!JS " 

9245 FOR D = l TO 18:50UND 8 , RND C0J **1 8 , 1 
8,18:S0UND 1 , RND C8> **28 , 10 , 18 : NEXT D : A = 
INT CRND c8>**183Mi0e0 + i00e:SC = 5C + A 

9246 POSITION 5,2:? tt6;"B0NUS ";A;" 
": SOUND 8, 8, 8, 0 : SOOND 1,0,8,8 

9247 FOR D=l TO 18:F0R F=15 TO 8 STEP 
-l:POKE 788,F:NEXT F : NE XT D 

9248 SN=5N+1 : GOSOB 488:GRAPH1CS 17 : POK 
E 756, CH'256 : POKE 718,12l:P0KE 788,138 



23 : ? «6 J 



•50R 



3:S0UND 0,AB 



:GOYO 7 

9788 POKE TP, 8 : POSITION 3, 
RY NO BONUS" 

9784 FOR JJ=38 TO 58 

9785 FOR D=-15 TO 15 STEP 
5 CD> +JJ, 18, 18 : POKE 788 , D+58 : NEXT D 

9786 N£XT JJ 

9787 SOUND 8 , 20 , 6 , 18 : POKE 788,255:F0R 
D=l TO 48:NEXT D:SOUND 8,8,8,8 

9718 SN=SN+1 : GOSUB 408 : GRAPHICS 17 : POK 
E 756, CH/256 : POKE 718,137:P0KE 788,138 
:GOTO 7 

9999 GOTO 9858 

18880 REM --DLI-BLUE-- 

11111 RESTORE 11115 

11112 FOR ADD=1536 TO 1536+28:READ B:P 
OKE ADD , B : NEXT ADD 

11115 DATA 72,138,72,141,18,212,169,11 
2, 141, 26, 288, 162 

11116 DATA 15,141,18,212,282,288,258,1 
73, 200, 2, 141, 26, 208, 184, 178, 104, 64 
11120 POKE 512,0:POKE 51 3 , 6 : DL=PEEK c56 
0)+256*PEEKc56i:> 

11130 POKE DL+2, 112+128 : POKE 54286,192 

11147 POSITION 6,8:? «6 ; "BEnBUHCTmH" : RE 
TURN 
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THREE COLORFUL GRAPHICS DEMOS 

By Mark Proudfoot 

These three colorful BASIC graphics demonstrations 
were sent by Mark Proudfoot, 14, a high school student 
from Brentwood, California. 

Easter Egg Maker produces a beautiful, flashing Easter 
egg, using pastel shades for excellent effect. Rainbow is 
a Graphics 11 demo with sound, producing a different 
set of "rainbows" each time. Pipe is in Graphics 9 and 
produces a pipe with water running out of it. The deli- 
cate shading gives an almost three-dimensional effect. 

LISTING 1 



/P^x^ Don't type the 
N^j^TYPO II Codes! 



FQ 
OF 
TO 
QH 



CU 



OS 

TU 

DG 

PB 
AC 
YM 



KA 
BH 
QE 
QZ 
TY 
SM 
UT 
ZB 
PB 
QU 
BQ 
CG 
ZN 
CO 
DO 
NU 

ZC 



1 REM EASTER EGG MAKER 

2 REM BY MARK PROUDFOOT 

3 REM CC>1989, ANTIC PUBLISHING INC 

19 GRAPHICS 7:P0KE 752,l:P0KE 708,14:C 
OLOR l:POKE 710,208:POKE 712,208:POKE 
789, 8 

12 ? "The Easter E99 haker-by Mark Pro 
udfoot Press PflEUQH to create another 
ess . »" 

13 ? " Press HramHrail to end." :F0 
R F=l TO 2 

15 R=l. l:IR=l'R:PI=6. 28318531 :NPT=368 

28 NX = 88 : NY = 48 : SIZE=42'R : DX=R*PI'NPT « D 

Y=IR*PI'NPT 

35 X=8:Y=SIZE 

48 FOR 1=1 TO 88 STEP 1 

58 PLOT X + NX , Y+NY : PLOT NX + X , NY- Y : PLOT 

NX-X,NY + Y:GOSUB 88 i PLOT NX - X , NY - Y : G05U 

B 88:IF F=2 THEN GOSUB 288 

68 X=X+CY*CDX*>:Y=Y-1.4*CX*CDY>> 

78 TRAP 138:NEXT I:NEXT F:GOTO 198 

88 IF F=l THEN RETURN 

98 GOSUB 168 

92 SETCOLOR 1 , RND C0J *15 , 14 

188 POKE 765, RND C8>*3 

118 XIO 18,»6, 0, 0, "S" 

128 RETURN 

138 F=2:G0T0 15 

158 REM 

168 SETCOLOR 8 , RND C0> *15 . 14 
178 SETCOLOR 1 , RND c0> *15 , 14 
188 RETURN 

198 GOSUB 168:G0SUB 288 : GOTO 198 

288 IF PEEKC53279J =6 THEN RUN 

218 IF PEEKC53279>=5 THEN GRAPHICS 8:E 

ND 

228 RETURN 



LISTING 2 



SI 
YD 
DD 
SO 

SK 
GK 
GR 
JQ 
KA 

MF 

SZ 
AS 

MG 
YT 

RU 
LD 
FK 
DH 
AT 
HY 



28 GOSUB 188:IF §5 = 3 THEN GUfU 130 
38 REM UERTICAL LINES 
48 PLOT 8 , RND C0) *179 

58 FOR B = l TO 79 STEP 2 » C = RND C0m 179 : |i 

OLOR INT cRND c0J*14>+2 

68 DR AUTO B,C:50UND 1,C,8,10 

70 NEXT B 

88 F=6:G0T0 28 

98 REM HORIZONTAL LINKS 

188 G = G + l:FOR A = l TO 185 STEP MCUI.OM 
INT CA'15> +1 : IF G=2 THEN COLOR 13 
118 SOUND 0,8,8, A'15:PL0T 0,A:DRAUTU 7 
9, A 

128 NEXT A: COLOR 6 : R K \ 0 RN 

138 SOUND 1,8,8,8:F0R DE=1 10 500:NKXT 
DE 

148 COLOR 8:F0R A-185 TO 1 STEP 2 
158 SOUND 0, 0,0, A'15 : PLOT H.A:DRAUTll ? 
9,A:NEXT A 
168 GOSUB 210 
178 FOR A=15 TO 8 STEP 
188 SOUND 8,8,8 
198 NEXT A 

288 PRINT **6; "W : GOSUB 210:END 
210 FOR DE=1 TO 1000-NKXT DE s RET URN 



0 . b 
POKE 712, A 



LISTING 3 



PA 
0 J 

T s 
YR 
UN 
PZ 
J f 
TU 
TS 
DJ 
J II 
MP 
CX 
JY 
AF 
TO 

HE 

DO 

MK 
BU 
PJ 



5 REM PIPE 

6 REM BY MARK PROUDFOOT 

7 REM cc>1989, ANTIC PUBLISHING INC 
10 GRAPHICS 9:P0KE 712,16:DEG 

40 FOR B=l TO 61 

50 FOR A=10 TO 17'COLOR A-9 

60 PLOT A , B : NEXT A 

70 FOR A=18 TO 25:C0L0R 25-cA~4> 
80 PLOT A , B : NEXT A : NEXT B 
90 FOR A=31 TO 4 6 : K= A - 30 : COLOR K 
100 PLOT 25-INT CK'3* , A : DRAUTO 40, A 
110 NEXT A:C=15 

115 FOR A=46 TO 61 : K=ABS CA ~ 613 : COLOR K 
120 PLOT 25-INT cK'3> , A : DRAWTO 40, A 
125 NEXT A:C=15:S0UND 1,25,0,2 
138 X=41:Y = INT cRND C0J*3*+58:G= cRND C0>* 
2> +2 

135 SOUND 8, PEEKC53778J , 18,2 : SOUND 8,P 
EEKC53778) ,8,2 

148 COLOR cRND C0a*8* +1 • G = G**1 . 5 * PLOT X, 
Y 

150 X=X+2:Y=Y+G 

160 IF X>78 OR Y>179 THEN GOTO 130 
170 GOTO 135 



RU 
OF 
TO 
UR 



1 REM RAINBOU 

2 REM BY MARK PROUDFOOT 

3 REM CCJ1989, ANTIC PUBLISHING INC 
10 GRAPHICS 11 « F-3 * POKE 712,13 



Antic pays $25 for every original and exclusive Tech 
Tip submission that we publish. Send your 8-bit or ST 
disk and printout to: Antic Tech Tips, 544 Second 
Street, San Francisco, CA 94107. Tech Tips welcomes 
very short programs that demonstrate the Atari's 
powers, simple hardware modifications, or useful 
macros for popular software. 
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Antic Classifieds 



****** 

Munich Atari XL/XE Public Domain Associa- 
tion is looking for members. Great PD-selection 
We sell (S2/2S), change and buy PD-software. 
Free list. Write to: Florian Bechert, August- 
Foppl-Str.17 , 8000 Munchen 50, West-Germany 
(FRG)(8/89) 

****** 

Try us for your Atari Public Domain software 
needs. Good prices, fast service. Write for free 
catalog. Vulcan Software, P.O. Box 692 Manas- 
sas, VA 2211-0692 (9/89) 

PRINTSHOP GRAPHICS. Holidays $15.00. LDS 
Prophets and Temples $15. 00. LDS Church 
Auxiliaries $15.00. 120 pictures each. Free 
Catalog. PCS Software Box 18574, Kearns, UT 

84118. (10/89) 

130 XE, XEP80, LCD. MIO (256K) & CABLES. 
ALL DOCS. IN ORIGINAL CARTONS. USED 
LESS THAN 6 MONTHS. $375. 00. ALSO 
ADAPTEC 4000A HD CONT. & 50 PIN SCSI 
CABLE, $60.00. AFTER 6 P.M. CDT 205-649- 
5004. (8/89) 

Treasure Hunters Wanted to play a new action 
text game. Cash Prizes for info SASE MEADOW- 
BROOK GAMES 30860 Alicante, Homeland, 
CA 92348 (8/89) 

****** 

10 disks with the best P.D. games ever made for 
the Atari 8-bit for only $10.00 plus 2.00 S/H. 
Order NOW! E.Lopez, P.O. Box 6772, Pico 
Rivera, CA 90661-6772 

****** 

The A Exchange— A Users Newsletter for ALL 
Atari Owners. Send SASE for FREE Issue. The 
A Exchange, P.O. Box 25852-A, Fresno, CA 
93729. (8/89) 

EXCELLENT PD SOFTWARE FOR 800/XL/ 

XE. Large selection, low prices, and fast ser- 
vice. Send SASE: CLASSIC SOFTWARE, P.O. 
BOX 373, RUNNEMEDE, NEW JERSEY 08078 
(8/89) 



****** 

BEST PD DISKS/PRICES— fastest service— 
FREE bonuses— 8-bit/ST. Automatic DISK-A- 
MONTH program. Full disks less than $1.50 
each. Super sample disk with catalog $3. 50. 
Specify computer. PATNOR, POB 370782, El 
Paso, TX 79937 

ENJOY selected PD software! Games- 
productivity — utilities — more! Demo disk, 
$3 00. . .catalog FREE. Homemade, 6011 Hyde 
Park Circle, Suite 208, Jacksonville, FL 32201 
(8/89) 

MUSIC LOVERS! MIDI YOUR ATARI! We have 
music software, Midi interfaces, and hundreds 
of pre-programmed songs available for the Atari 
XL/XE and Atari ST. For catalog send $1.00 to 
The MIDI Inn, P.O. Box 2362, Dept. AN7, West- 
mont, IL 60559. Specify your computer, music 
software and Midi instruments on hand. (9/89) 

****** 

CREATE/PRINT MUSIC MANUSCRIPT. 48K 

800/XL/XE. Words and music. WYSIWYG. 
Epson, Star, Panasonic printers, or easily create 
your own driver. Very high quality display and 
output. A SERIOUS TOOL for musicians; a 
NEAT TOYfor music-lovers. Written by an M.A. 
in music. $19 95. 30-day MONEY-BACK GUAR- 
ANTEE. John Kelleher, 4400 New Jersey Street, 
San Diego, CA 92116 (10/89) 

Your choice of 8-bit P.D. software on each side 
of every disk. Great selection, competitive 
prices. Send SASE for catalog. Dino's RYO, 664 
W.Arrow Hwy, Suite 197, San Dimas, Calif. 
91773 

CHRISTIAN SOFTWARE and PUBLIC DOMAIN 
PD low as $1.80/disk. Send SASE for Catalog. 
AGAPE GAMES Disk five Christian Games 
$12.95 (8 BITS W/48K). Dan Sharpe GPO Box 
911 Chicopee MA 01021 (9/89) 

USED 8-BIT EQUIPTMENT, SOFTWARE, AC- 
CESSORIES, SEND S.A.S.E. (45 CENTS) BUSI- 
NESS SIZE, OR 45 CENT STAMPS FOR PRICES 
AND HUGE LIST. L. CHRISTOFFER, 1806 
PATRICK, BURLINGTON, WA 98233 (8/89) 



****** 

Stop overpaying for P.D. Software!!! ALL 8-bit 
disks only $2.00 each, ST only $3 00. Quantity 
discounts, great selection. Specify computer. 
Send large SASE: MWPDS, 890 N. Huntington 
St., Medina, OH 44256 (8/89) 

SI gives you MORE for LESS! Our SUPERIOR 
ATARI 800/XL/XE P-D Theme Collections aver- 
age 35 programs (7 cents each!) per D-S 
disk. Shipping FREE. Send only $3 00 for MLX 
GAMES' GREATEST HITS (our Most Popular 
title)— receive Si's newest Catalog FREE! Catalog 
alone/ $2.00. SOFTWARE INFINITY, 642 East 
Waring Avenue, State College, PA 16801 (7/89) 

NEW 800/XL/XE SOFTWAREIAn Interna- 
tional Collection of Shareware and Public 
Domain programs for the discriminating Atari 
owner. Every disk Guaranteed! Dependable 
world-wide service. Low prices! Free descrip- 
tive catalogue. BELLCOM, Box 1043-A, Peter- 
borough, Ontario, Canada K9J 7A5 (8/89) 

Atari 800/XL/XE public domain disks. High 
quality disks, fast service, free list. High quality 
disks, fast service, free list. 1st Byte, PO Box 
130822, Tyler, TX 75713 (8/89) 

250+ DS/SD DISKS OF PD SOFTWARE FOR 
YOUR ATARI 8-BIT. PLEASE SEND $3 TO: 
AAPDS 6-18TH EDGEMORE, HUTCHINSON, 
KS 67502. 

Public Domain Software— ST $4/Disk, 800/XL/ 
XE $3/Disk. Largest ST Selection. The Atari ST 
Book $16.95- Fast Service, Visa/Mastercard, 
FREE catalog— Specify Computer. BRE Soft- 
ware, 352 W Bedford, Suite 104-A, Fresno, CA 
93711. (800) 347-6760 (1/90) 

****** 

BATTERY RACKED UP RAMDISK. Never 
lose your memory, Boot from Ramdisk! No 
installation. Ramdisk cartridge plugs into Atari 
400/800 or XL/XE. 32K $99.95, 64K $129.95, 
192K $249 95 Certified check, Money order, 
VISA accepted. CANOE COMPUTER SERVICES, 
11006-155 St., Edmonton, AB, T5P-2N3 Phone 
(403) 437-4619 (8/89) 
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Advertising 
Deadlines 



October 1989 

Insertion Orders: June 30 

Artwork: July 7 

On Sale: Last week of August 

November 1989 

Insertion Orders: August 1 
Artwork: August 8 

On Sale: Last week of September 



BUY 



SELL 



TRADE 



SWAP 



Antic Classifieds 

5-H Second Street, San Francisco. CA 9401* 7 
Telephone (415) 95~M)886 



Company 



City/State/Zip 



N 1 as te r Ca rd / V i sa N urn be r 



Expiration Date 



Signature 

Enclosed is my payment for S _ 



Issue(s) Ad to Appear 



RATE: SI. 00 PER WORD— twenty (20) word minimum. 

BOLDFACE: Add S7.50 per line for boldface words or add $40.00 for the entire ad set 
in boldface (any number of lines). 

STARS: Add S6.50 for one (1) line of six (6) stars ★★★★★★ at top of ad. 
TERMS: Prepayment is required. Check, Money Order, Visa or MasterCard is 
accepted. Make check payable to Antic Publishing. 

FORMS: Ads are subject to publisher's approval and MUST BE TYPED. Please underline 
words to be set in boldface. 

GENERAL INFORMATION: Advertisers using Post Office Box numbers in their ads must 
supply permanent address and telephone numbers. Ad will appear in the next avail- 
able issue after receipt unless otherwise specified. 

DEADLINE: 90 days prior to cover date (e.g., December 1988 closes September I, 
1988— December issue on sale November 1, 1988). 

Clip this coupon, attach to typewritten copy and send with remittance to address on 
the left. 

HANDWRITTEN COPY WILL NOT BE ACCEPTED 



AN AD IN ANTIC REACHES MORE THAN 100,000 SERIOUS ATARI USERS 



SUPER BONUS PROGRAM 
on Antic Disk! 



You get even more value when you get the Antic 
disk... a Bonus Program that's too large a type-in 
program to fit in the magazine. 

Plus you get all 1 72K of this month's Antic programs 
on disk. Great 8-bit software without typing! 



Order your disk now! 
Phone toll-free: 
1-800-234-7001 

(Visa/Mastercard orders) 

Ask for ADS889 





BACK ISSUE 

SALE 

Complete Your Atari "Toolkit" 



SAVE 25% TO 35% 

Prices: 

1 To 5 If you order more 
Issues than 5 Issues 

Magazine & Disk $7.00 each $6.50 each 
Magazine only $3.00 each $2.75 each 
Disk only $5.00 each $4.75 each 

Please include shipping & handling charges: 
1 to 5 issues: $1 for each issue 
6 and over : $ 5 plus 50c for each 
issue over 5. 

FOR ORDERS ONLY CALL TOLL- FREE 
(800) 234-7001 (7-5pm PST.) 

MasterCard & Visa Only 

Or send your check to: ANTIC BACK ISSUES 
544 Second Street San Francisco, CA 94107 
California residents add 6 1/2% sales tax. 



■ 

Back Issue Order Form 

■ 


Order # Selection Order # Selection 
A, B, or C A, B, or C 


□ Check Enclosed □ VISA □ MasterCard ■ 
Name 




Address ■ 




City State Zip ■ 


Total Issues 
Ordered: 

Total Issues Ordered: 1 to 5 6 fit over: 


Credt Card # 

Exp. Date B 

Canada, Mexico and all other foreign add $ 1 . ■ 
per issue. Payment in U.S. funds must 
accompany all foreign orders. California 
residents add 6 1/2% sales tax. a 

The ATARI Resource 


Nn t«qii^« of Sel. A: x $7 ea. x $6.50 ea. = $ 
No. Issues of Sel. B: x $3 ea. x $2.75 ea. = $ 
No. Issues of Sel. C: x $5 ea. x $4.75 ea. = $ 


Total $ 

Shipping & handling $ 
Amount enclosed $ 



How To Order: 



Simply give the Order Numbers of the 
issues you want, and include the letter 
corresponding to the following selections: 

A- magazine & disk 
B- magazine only 
C- disk only 

Example: 1A- is for "April 1983, magazine 
& disk" 

If no letters are indicated in your order, we 
will automatically send you the magazine 
only (B). 



Missing any issues? Looking for those great utilities, 
games, and reviews? You'll find it all right here! 
Copies are limited, so order today! 



ORDER * 



ISSUE 



1 April 1983: Games— 3-D Maze, Voyeur (NoDisk) 

2 May 1983: Telecomputing— Microids, 

Tele Chess (NoDisk) 

3 June 1983: Databases— Stargazing, 

Dancin' Man (NoDisk) 

4 July 1983: Adventure Games— Dragonsmoke, 

Shoot-em-up Math 

5 August 1983: Graphics— 3-D Fuji, Keystroke 

Artist 

6 September 1983: Education— P/M Tutor 

7 October 1983: Sports Games— AutoCassette 

8 November 1983: Sound & Music— Air Raid, 

Casting Characters 

9 December 1983: Buyer's Guide — 

AUTORUN.SYS, Automate Player/Missiles 

10 January 1984: Printers— Pocket Calendars, 

Screen Dump 

11 February 1984: Personal Finance— TYPO, 

Gauntlet 

12 March 1984: International Issue— DiskRead, 

Poker Solitaire 

13 April 1984: Games— Risky Rescue, 

Math Wizard 

14 May/ June 1984: Exploring XL Computers— 

Escape from Epsilon, Scroll to the Top 

15 July 1984: Communications— AMODEM, 

BASIC Animation Secrets 

16 August 1984: Disk Drives— Horseplay, Recall 

17 September 1984: Computer Graphics— 

Graphics Converter, Olympic Dash (No Magazine) 

18 October 1984: Computer Learning— Bouncing 

Ball, Antic 4/5 Editor/Animator 

19 November 1984: Computer Adventures— 

Adventure Island, Advent X-5 

20 December 1984: Buyer's Guide— Inf obits, 

Biffdrop 

21 January 1985: Super Utilities— TYPO II, 

DISKIO 

2 2 February 1985 : Finances — Home Loan 
Analyzer, Drum/Bass Synth 

23 March 1985: Printers— Kwik Dump, Font 

Maker 

24 April 1985: Computer Frontiers— Dot Matrix 

Digitizer, Speech Editor 

25 May 1985: New Super Ataris— Son of Inf obits, 

Arena Racer 

26 June 1985: Computer Arts— View 3-D, 

The Musician 

27 July 1985: Computer Challenges— Miniature 

Golf, Guess That Song 

28 August 1985: Telecommunications— Atari 

'Toons, Pro* Term 

29 September 1985: Power Programming— 

One-Pass Disk Copy 130, Crickets 



ORDER * 



ISSUE 



30 
31 

32 
33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 
49 

50 

51 

52 

53 

54 

55 

56 



October 1985: Mind Tools— Graph 3D, GEM 

Color Cascade 
November 1985: New Communications— 

TYPO II Double Feature, 130XE Memory 

Management 

December 1985: Shoppers Guide— DISKIO 
Plus, Box-In 

January 1986: Atari Products are Back- 
Appointment Calendar, Dungeon Master's 

Apprentice 
February 1986: Printer Power— T-Shirt 

Construction Set, Forth Escapes 
March 1986: Practical Applications— Lunar 

Lander Constructor, Lie Detector 
April 1986: Computer Mathematics— Fractal 

Zoom, 3-D Fractals 
May 1986: 4th Anniversary— Digital 

Gardener, Molecular Weight Calculator 
June 1986: Summer Computing— Weather 

Wizard, Bomb Squad 
July 1986: Computer Arts— Amazing Card 

Shuffler, Graf con ST 
August 1986: Online Communications— 

Ultrafont, Floppy Filer 
September 1986: Weather— WEFAX Decoder 

(8-bit/ST), BASIC Tracer 
October 1986: Hard Disks— Video Stretch, 

TYPO ST 

November 1986: Personal Finance— Budget 

dataBASE, V-Graph 
December 1986: Shoppers Guide— Stepper 

Motors, Nuclear Waste Dump 
January 1987: Talking Atari— Talking 

Typewriter, Rebound 
February 1987: Word Processing— SF 

Fogger, Electric Charlie! 
March 1987: Dvorak Keyboard, 

Multi-AUTORUN 
April 1987: — Designer Labels, Taxman 
May 1987: 5th Anniversary— A-Rogue, Poker 

Slot Machine 
June 1987: Animation — Verbot Commander, 

Citadel 

July 1987: Print Anything— Ghost Writer, 

Your Net Worth 
August 1987: Atari Muscle— Sideways 

Spreadsheet, Diamond Dave 
September 1987: Work/Play— Mighty Mailer, 

Maximillian B. 
October 1987: Football Predictor— Antic 

Prompter (8-bit/ST), Spelling Checker 
November 1987: Practical Applications— 

Critical-Path Projects, WYSIWYG Cassettes 
December 1987: Print Holiday— P. S. Envelope 

Maker, Antic Publisher 



B&C 

ComputerVisions 



3257 KIFER ROAD 
SANTA CLARA, CA 95051 
(408) 749-1003 

(408)749-9389 FAX 



A 



STORE HOURS 
TUE - FRI 10am - 6pm 

SAT - 10am - 5pm 
CLOSED SUN - MON 



saa/ X E/ XE SOFTWARE 

ALL TITLES ON DISK 



SOO/ XE/ XE SOETWA RE 

ALL TITLES ON CARTRIDGE 



ENTERTAINMENT 

12 ADAMS ADVENTURES .. 14.95 

ALIANTS 26.95 

ALT. REALITY CITY 26.9 5 

ALT. REALITY DUNGEON. 26.95 

BEYOND CASTLE WOLF. ... 14.95 

RTSMARK 26.95 

ROP & WRESTLE 26.95 

BORDINO:1812 26.95 

BOULDERDASH CONSTR.SET 17.95 

BRUCE LEE 17.95 

CASTLE WOLFENSTEIN. ... 14 .95 

DALLAS QUEST 7.95 

D- BUG 7.95 

F-15 STRIKE EAGLE .... 31.50 

FIGHT NIGHT 17.95 

GAUNTLET (64K) 31.50 

DEEPER DUNGEONS 22.50 

GUNSLINGER 26.95 

HARD HAT MAC 7.95 

JAWBREAKER 9.95 

KARATEKA 13.50 

KNICKERBOCKERS 13.50 

KORONIS RIFT 13.50 

LAST V-8 8.95 

LEADERBOARD 13.50 

MAIL ORDER MONSTERS .. 13.50 

MICROLEAGUE BASEBALL.. 35.95 

MONTEZUMA'S REVENGE. . . 14.9 5 

MOUSEQUEST 17.95 

MOON SHUTTLE 7.95 

NINJA 8.95 

OIL'S WELL 9.95 

O'RILEY'S MINE 9.95 

PIRATES OF BARB. COAST 22.50 

PREPPTE T & II 9.95 

RESCUE ON FRACTALAS... 13.50 

SILENT SERVICE 31.50 

SPEEDKING 8.95 

SPIDERMAN 7.95 

SPITFIRE 40 31.50 

STARFLEET I 44.95 

SPY VS. SPY III 17.95 

STOCKMARKET 22.50 

STRIP POKER 26.95 

SUMMER GAMES 17.95 

TAX DODGE 9.95 

THE HULK 7.9 5 

TOMAHAWK (64K) 26.9 5 

TOP GUNNER 17.95 

TOUCHDOWN FOOTBALL ... 13 . 50 

TRAILBLAZER 26.95 

UNIVERSE 44.95 

ZAXXON (400/800) 13.50 

PROGRAMMING 

ACTION I 71.95 

ACTION! TOOLKIT 26.95 

BASIC XL 53.95 

BASIC XL TOOLKIT 26.95 

BASIC XE 71.95 

DOS 2.5 7.95 

DOS XE 10.00 

DISK I/O 26.9 5 

KYAN PASCAL 62.95 

LIGHTS PEED C 35.95 

LOGO 19.95 

MAC/65 71.95 

MAC/65 TOOLKIT 26.95 

MACRO ASSEMBLER 22.50 

PILOT 19.95 

SPARTA DOS X 71.95 

TOP DOS 1.5 PLUS 35.95 

PRODUCTIVITY 

ANIMATION STATION .... 89.95 

ATARIWRITER+ 39.95 

ATARI BOOKKEEPER 24.95 

ATARI MUSIC II 14.95 

AWARDWARE (1050) 13.50 



BANK STREET WRITER.... 14.9 5 

BLAZING PADDLES 31.50 

CELEBRITY COOKBOOK ... 26.95 

COMPUTE YOUR ROOTS ... 35.95 

DATAMANAGER 17.95 

FAMILY FINANCE 6.95 

GUITAR WIZARD 26.9 5 

HOME ACCOUNTANT 19.9 5 

HOME FILING MANAGER. . 6.9 5 

HOMEPAK 24.9 5 

INVENTORY MASTER 80.9 5 

LETTER WIZARD 29.95 

MUSIC CONSTRUCTION SET 13.50 

NEWSROOM (1050 - 64K) . 44.95 

NEWS STATION 26.95 

NEWS STA. COMPANION. . 26.95 

PAGE DESIGNER 26.95 

PRINT POWER (1050) 13.50 

PRINTKIT (1050) 13.50 

PRINTSHOP 34.9 5 

P.S. COMPANION (64K) . 24.95 

P.S.GRAPHICS LIBRARY 1 17.95 

P.S.GRAPHICS LIBRARY 2 17.95 

P.S.GRAPHICS LIBRARY 3 17.95 

PROOF READER 17.9 5 

PUBLISHING PRO 35.95 

RUBBER STAMP 26.95 

SYNTREND (130XE) 35.95 

SUPER MAILER 35.95 

THE LOTTO PROGRAM .... 17.95 

TIMEWISE 6.95 

TURBOWORD/80 COLUMN 

REQUIRES XEP80 44.95 

VIDEO TITLESHOP (64K). 26.95 

GRAPHICS COMPANION. 17.95 

VIRTUOSO 29.95 

VISICALC 24.95 

EDUCATION 

ATARI LIGHT MODULE 

(REQ. STARTER SET) . 9.95 

BUZZWORD 35.95 

GRANDMA'S HOUSE (-10) 9 
HEY DIDDLE (AGE 3-10). 9 

MASTER TYPE 14 

PLANATARIUM 22 

STATES AND CAPITALS . . 

TOUCH TYPING 

CBS (AGE 3-6) : 

ASTROGROVER 

BIG BIRD SPEC UELIVE 

ERNIE'S MAGIC SHAPE. 
DESIGNWAREx 

MATHMAZE (6-11) .... 

MISSION ALGEBRA (13+) 35. 95 

SPELLICOPTER (6-11). 35.95 
TINK TONK (AGE 4-6) : 

ABC'S 

COUNT AND ADD 

SMART THINKER 

SPELLING 

SUBTRACTION 

THINKING SKILLS . . . 
ALL 6 TINK TONKS. 
UNICORN l 

10 LITTLE ROBOTS 

(PRE-SCHOOL) 26.95 

FUN BUNCH ( 6 -ADULT ) 

RACECAR RITHMETIC 

(AGE 6+) 26 

WEEKLY READER (PRE-SCHOOL) : 

STICKY BEAR SHAPES . 26.9 5 

STICKY BEAR NUMBERS 

STICKY BEAR ABC'S . 

STICKY BEAR OPPOSITE 26.95 

SB BASKET BOUNCE 

STICKY BEAR BOP 

RUN FOR IT 26.95 

PIC BUILDER 26.95 



95 
95 
95 
50 
9.95 
9.95 

8.95 
8.95 
8.95 



35.95 



8.95 
8.95 
8.95 
8.95 
8.95 
8.95 
39.95 



26 .95 



.95 



26.95 
26 .96 



26.95 
26.95 



ENTERTAINMENT 

3D TIC-TAC-TOE .... 

AIRBALL (XL/XE) 24 

ALIEN AMBUSH 

ACE OF ACES . (XL/XE) . 

ARCHON 

ASTEROIDS 

ASTRO CHASE 

ATARI TENNIS 

ATLANTIS 

BALL BLAZER 

BARNYARD BLASTER 

(REQ. LIGHT GUN) . . . 

BATTLEZONE 

B.C. QUEST FOR TIRES 

BLUE MAX 

BOULDERS f. BOMBS .... 

CAVERNS OF MARS 

CENTIPEDE 

CHICKEN 

CHOPLIFTER 

CLAIM JUMPER (400/800) 

CLOUDBURST 

CRIME BUSTER 

(REQ. LIGHT GUN) . . 

CROSSBOW 

CROSSFIRE 

CRYSTAL CASTLES (XL/XE) 
DARK CHAMBERS (XL/XE). 
DAVIDS MIDNIGHT MAGIC 

DEFENDER 

DELUXE INVADERS 

DESERT FALCON 

DIG DUG 

DONKEY KONG 

DONKEY KONG JR 

EASTERN FRONT (1941). 

E.T. PHONE HOME 

FIGHT NIGHT 

FINAL LEGACY 

FOOD FIGHT (XL/XE) . . . 

FOOTBALL 

FROGGER 

GALAXIAN 

GATO 

GORF (400/800) 

GYRUSS 

HARDBALL 

INTO THE EAGLES NEST 
JOURNEY TO PLANETS . . 

JOUST 

JUNGLE HUNT 

KABOOMJ 

KARATEKA 

KRAZY ANTICS 
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LODE RUNNER 

MARIO BROS 

MEGAMANIA 

MILLIPEDE 

MISSILE COMMAND 

MOON PATROL 

MR. COOL 

MS. PAC MAN 

NECROMANCER 

ONE ON ONE (XL/XE) . . . 

PAC MAN 

PENGO 

POLE POSITION 

POPEYE 

Q-BERT 

QIX 

RESCUE ON FRACTALAS . 
RETURN OF THE JEDI . . 

ROBOTRON:2084 

SKY WRITER 

SLIME (400/800) 

SPACE INVADERS 

STAR RAIDERS 

STAR RAIDERS II 

SUBMARINEE COMMANDER 
SUMMER GAMES (XL/XE) . 

SUPER BREAKOUT 

SUPER COBRA 

THUNDERFOX 

TRACK & FIELD 

TURMOIL 

WIZARD OF WOR 

PRODUCTIVITY 

ATARIWRITER 19.95 

MICROFILER 22.50 

EDUCATION 
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ATARI LAB STARTER SET . 29 

FUN WITH ART 14 

MATH ENCOUNTERS 9 

FISHER PRICE (PRE SCHOOL 

DANCE FANTASY 

LINKING LOGIC 

LOGIC LEVELS 

MEMORY MANOR 

SPINNAKER (AGE 3-10) 

ALF IN COLOR CAVES . 

ALPHABET ZOO 

DELTA DRAWING 

FACEMAKER 

KIDS ON KEYS 

KINDERCOMP 

(AGE 7 - ADULT) : 

ADV . CREATOR (400/800 ) . 9 

FRACTION FEVER 9 
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.95 
) : 
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4 



RECONDITIONED ATARI MERCHANDISE 

30 DAY WARRANTY 



JL 



800 (48K) 
COMPUTER 
$79.95 


SPACE AGE 
JOYSTICK 
$5.00. 


1030 MODEM 
WITH EXPRESS! 
$24.95 


400 (16K) 


ATARI 


1010 PROGRAM 


COMPUTER 


TRACKBALL 


RECORDER 


$29.95 


$9.95 


$29.95 


1020 COLOR 
PRINTER/ PLOTTER 

$19.95 

40 COLUMNS WIDE 
(new in box) 


ATARI 
BOOKKEEPER 
$14.95- NO BOX 

ATARI 
NUMERIC 
KEYPAD $7.95 


DISKETTES 
AS LOW AS 20 CENTS 
10 FOR $4.00 
100 FOR $29.95 
1000 FOR $200 
MOST ARE UNNOTCHED 
WITH OLD SOFTWARE 



SHIPPING INFORMATION - Prices do not include shipping and handling. Add $5.00 for small items ($8.00 Min. for Canada). Add $8.00 for disk drive. Add $2.75 for C.O.D. 
Calif, res. include 7* sales tax. Mastercard and Visa accepted if your telephone is listed in your local phone directory. Orders may be pre-paid with money order, cashier 
check, or personal check. Personal checks are held for three weeks before order is processed. C.O.D orders are shipped via UPS and must be paid with cash, cashier check or 
-oney order. International and APO orders must be pre-paid with cashier check or money order. $20.00 i ' 



subject to change. 



linimum on all orders. All sales are final - no refunds - prices are 

Phone orders accepted TUESDAY THROUGH FRIDAY from 10:00 am to 6:00 pm PST. 
We carry a full line of ATARI products - large public domain library - write or call for free catalogue 



PRICES SUBJECT TO CHANGE WITHOUT NOTICE - ALL SALES ARE FINAL 



